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gabe. Im Klartext: Wenn im 
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technisch schon fertiggestellt. 
Aus diesem Grund ist das 
vorliegende Heft randvoll 
mit Listings, besonders die 
C-16 Freunde, aber auch die 
Schneider-User erwerben mit 
diesem Heft nicht nur einen 
umfangreichen Listingteil, 
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sondern auch qualitativ über- 
durchschnittliche Software. 
In diesem Zusammenhang 
möchte ich die VC-20-Besit- 
zer aufrufen, sich vermehrt 
als Autoren zu versuchen, da- 
mit wir dieses System auch in 
Zukunft weiter berücksichti- 
gen können. 


Uwe Knierim 
Chefredakteur 
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| Commodore 64 


Tips und Tools 





Mit der Anschaffung des Com- 
modore 64 und der Floppy 1541 
steht dem Anwender fi wenig 
Geld ein erstaunlich leistungsfähi- 
ges Homecomputersystem zur 
Verfügung. Um die Möglichkeiten 
dieses Systems optimal zu nutzen, 
stellen sich besonders dem Anfän- 
ger einige Probleme. Dieses Buch 
gibt dem unerfahrenen User eine 
wertvolle Starthilfe u.a. werden 
hier eine Vielzahl von Tools zur 
Verfügung gestellt, die das Arbei- 
ten mit dem Computer wesentlich 
erleichtern. 


Computer sind nicht nur zum Spielen da 


Heimcomputer-Bastelkiste 


Die- Autoren beschäftigen sich 
ausführlich mit der Floppy 1541, 
deren Programmierung sowie die 
Techniken zur schnellen Datenü- 
bertragung. Sie geben außerdem 
Tips zur Programmgestaltung, 
stellen Techniken wie Maussimu- 
lation oder die Realisierung von 
Windows vor und beschäftigen 
sich eingehend mit der hochauflö- 
senden Grafik. 

Das Buch enthält eine Fülle von 
BASIC-und Assemblerroutinen, 
die zum größten Teil durch Li- 
stings dokumentiert sind. Der Le- 
ser hat so die Möglichkeit, kon- 
krete Problemlösungen Schritt für 
Schritt nachzuvollziehen. Alle 
vorgestellten Programme sind zu- 
sarnmen mit weiteren nützlichen 
Tools Bestandteil der dem Buch 
beiliegenden Diskette. 


Die Themen: 
Manipulation der Diskette 


Schnelle Datenübertragung 
Kopiertechniken E 
Floppyprogrammierung 
Hardware der Floppy 
Fenster-Techniken 
Maussimulation 
Rasterzeileninterrupt 


Eigene Interruptroutinen 
Hires-Grafik 


Die Tools: 
Disk ID-Manager 
Hires-Scanner 
Character-Scanner 
Disk-Monitor 
Backup-Copy 
Fast-Format 
Error-Scanner 


Commodore 64 - Tips und 
Tools, Sybex-Verlag in Düssel- 
dorf, Autoren: Günter Krämer 
und Wolfgang Sipinski, ISBN 
3-88745-641-6, Preis: 58,- DM 


Messen, Steuern und Regeln mit Homecomputern 


Homecomputer können mehr leisten als man annimmt. Sie sind zum Beispiel in der Lage, Kleingeräte automa- 
tisch ein- und abzuschalten, Meß- und Steuerfunktionen zu übernehmen und komplizierte Abläufe zu überwa- 


chen. 


=; Gehors A. Kerl SS 
Heimcomputer- 
Bastelkiste 


nme, Meran, Krngpehee seht & 4, Ayla Kr, NE, 
Cr, MC Kari mach Kanchaie-Cangpeern 





Das Buch „HEIMCOMPUTER- 
BASTELKISTE“ von Gerhard A. 
Karl, erschienen im Falken-Ver- 
ke, verrät anhand von zahlrei- 
chen Beispielen, Programmen 
und Schaltplänen, wie solche Auf- 
gaben gelöst werden. Vorausset- 
zung ist lediglich etwas Bastelge- 


schick und Verständnis für elek- 
tronische Zusammenhänge. 
Funkamateure, Modelleisenbah- 
ner und Computerfreunde kom- 
men dabei genauso auf ihre Ko- 
sten wie Technik-Fans. 

Nach einer eingehenden Einfüh- 
rung in die Maschinensprache der 
Prozessoren 6502 und Z80 wer- 
den die wichtigsten Schnittstellen- 
bausteine vorgestellt und Fachbe- 
griffe wie „Iransistoren“, „Thyri- 
storen“, „IRIACs“, „Relais“, 
„LEDs“ u.v.a.m. erläutert. Der 
Hauptteil des Buches beschäftigt 
sich mit Anwendungen, wie zum 
Beispiel das-Messen von Wider- 
ständen oder Flüssigkeiten, Filter- 
und Verstärkersteuerungen, Pro- 
gramm- und Schaltungstests, Hei- 
zungssteuerung, Anschluß an das 
Telefon, Schaltungen für Model- 
leisenbahner, Sprachausgabe, Lo- 
gikprüfer und EPROM-Program- 
miergerät. Durch Schaltplan, 
Aufbauplan auf Lochrasterplatine 
und Verdrahtungsliste als Check- 
list sind die Projekte auch für den 


weniger elektronisch Vorbelaste- 
ten sicher nachzubauen. 

Die Programme für die vorge- 
schlagenen Anwendungen sind in 
der populärsten Computerspra- 
che „BASIC“ geschrieben und für 
die geläufigsten Hobby-Compu- 
ter ausgelegt: Commodore 64, 
Sinclair-, MSX-, Apple 2-, MC-, 
Atari und Tandy-Rechner. DieLi- 
stings werden jedoch in ihrem 
Aufbau geräteunabhängig erklärt. 


Autor: Gerhard A. Karl, Fal- 
ken-Verlag Postfach 1120, 
Schöne Aussicht 21, 6272 Nie- 
dernhausen/Ts. - Preis: 39,- 
DM. 


xx x 





Preissenkungen 
bei VIZA 


Der Preis von VIZASTAR (Ver- 
sion XL-8), dem Kalkulationspro- 
ramm für den C 64, wurde von 
isher 398,-DM auf 298.- DM ge- 
senkt. Damit ist das integrierte 
Datenbank- und Kalkulationspro- 
ee mit drei-dimensionaler 
De interessanter als ver- 
leichbare Einzellösungen. Die 
Knie Version XL-4 kostet jetzt 


:198,- DM. Weiterhin bietet der 


deutsche Distributor den Aus- 
tausch von XL-4 in XL-8 zu ei- 
nem Preis von 120,- DM an. 
Neu auf dem Markt ist nun auch 
VIZASTAR 128 für den Com- 
modore 128. Da dieses Programm 
bisher nur in der englischen Ver- 
sion verfügbar ist, bietet DTM 
den registrierten Anwendern die 
kostenlose Nachsendung der 
deutschen Version an, sobald lie- 
ferbar. 

Fortsetzung nächste Seite. 
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report 


Bildschirm- 





Programm: Paintbox, System: C 
64, Preis: (Kass.) ca. 9,-DM, Her- 
steller: Golden Games, Vertrieb: 
Micro-Händler 


Ein Malprogramm, noch ein Mal- 
proramm, und noch eines für den 
C 64. Ntürlich muß man sich da 
fragen, ob es sich überhaupt 
lohnt, ein neues Zeichenpro- 
gramm auf den Markt zu bringen. 
Besonders für den C 64 haben be- 
stimmte Programme einen Stan- 
dard gesetzt, der schwerlich zu 
überbieten ist. Hier ist es insbe- 
sondere der Koala Painter, der in 
fast jeder C-64-Malerwerkstatt 
vertreten sein dürfte. Dies hat 
letzlich dazu geführt, daß sich an- 
dere Hersteller von Software und 
sogar von Hardware (z.B. bei Vi- 
deodigitizern) sich an diesem For- 
mat orientiert haben, obwohl der 
Koala Painter in einem ungünsti- 
gen Format arbeitet, da er das 
Commodoreformat ignoriert und 
die Reihenfolge von Videoram 
und Farbram vertauscht und so 
die Einbindung erstellter Bilder in 
eigene Programme unnötig er- 
schwert. 


Weitere Argumente für ein neues 
Malprogramm könnten sein: Die 


SORTIERT 


schwere Beschaffbarkeit von Koa- 
lapainter oder anderen alteinge- 
sessenen Programmen, das un- 
günstige Preis-Leistungsverhält- 
niss. 


Mit all diesen Dingen räumt die 
Paint Box auf. Dieses explizite 
Low-Cost-Produkt bietet weitge- 
hend die gleichen Features wie die 
teureren Brüder, jedoch weist die 
Zoom-Funktion besondere Qua- 
litäten auf. 


Um Paint Box beurteilen zu kön- 
nen, muß man wissen, daß es sich 
hierbei nicht um ein nagelneues 
Programm handelt, sondern um 
eine Schubladenentwicklung. 
Paint Box hat daher gar nicht erst 
den Anspruch, etwas umwerfend 
Neues zu bieten. Vor allem für 
Neueinsteiger bietet Paintbox da- 
her ausreichend Qualitäten zu ei- 
nem Preis, der kaum der Rede 
Wert ist. 


Positiv: Alle wichtigen Features 
vorhanden, einfache Bedienung, 
sehr gutes Preis-Leistungs-Ver- 
hältnis. 


Negativ: dürftige Anleitung 


Höllisches Unternehmen 


Programm: Dantes Inferno, Sy- 
stem: C-64, Preis: ..., Hersteller: 
Beyond Software. 


Die neue Beyond-Veröffentlichung 
ist nichts für schwache Nerven, 
denn in Dantes Inferno werden 
Sie durch die Hölle gehen (und 
das im wahrsten Sinne des Wor- 
tes). 


Grundlage für dieses Spiel war 
Dante Alighieris klassisches mit- 
telalterliche Abenteuer ”Die Höl- 
le”, das die Reise des ”Pilgers” be- 
schreibt, der alle Regionen der 
Hölle durchwandern muß, um 
das Fegefeuer auf der anderen Sei- 
te zu erreichen. Die Reise findet 
ihren Höhepunkt in einer Kon- 
frontation mit Luzifer höchstper- 
sönlich. 


So geht es dann auch in dem Pro- 
gramm ziemlich ”rund”. Sie steu- 
ern den Pilger und müssen mit 
Ihm bis zur Region IX der Hölle 
innerhalb von 7 Tagen vordrin- 
gen. Wenn Sie unterwegs versa- 
gen, ereilt Sie das gleiche Schick- 
sal, das die armen Sünder in der je- 
weiligen Region der Hölle zu 
ertragen haben, in der Sie gerade 
waren. 


Sie fangen im Wald an, nach Ge- 
genständen zu suchen. Es liegen 
dort ein Geldbeutel und ein 
Seil.Man sollte sich übrigens 
schon hier mit der Steuerung der 
”Pilgerfigur” vertraut machen. 
Das Spiel kann über Tastatur 
oder Joystick gesteuert werden, 
wobei mit dem Joystick (ohne 
Feuerknopf) die vier Bewegungs- 
richtungen möglich sind. Hält 
man den Feuerknopf gedrückt, 
kann mit ”Joystick nach links” 
der Gegenstand in der linken 
Hand benutzt werden, mit ”Joy- 
stick nach rechts” der Gegenstand 
in der rechten, und mit "Joystick 
nach vorn” kann ein Gegenstand 
aufgenommen oder (!) abgelegt 
werden. 


Nachdem Sie also die obenge- 
nannten Gegenstände aufgenom- 
men haben, gehen Sie durch die 
Höhle im Wald in die Vorhölle. 
Der ”Pilger” steht dann vor ei- 
nem Fluß, hinter sich den Höhle- 
nausgang. Jetzt kommt ein Fähr- 
mann vorbei. Bieten Sie dem den 
Geldbeutel an, sonst hat Ihre Rei- 
se schon in der Vorhölle ihr Ende 
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gefunden (Sie geraten in einen 
Hornissenschwarm). Der Fähr- 
mann nimmt Sie dann mit und 
läßt Sie vor dem Eingang zur Re- 
gion 1 wieder aus dem Boot 
heraus. 


Jetzt fängt es langsam an. span- 
nend zu werden, denn jetzt muß 
mit äußerster Vorsicht zu Werke 
gegangen werden. Erfahrungsge- 
mäß hält man sich in der Region 
1 zunächst links und geht vor- 
wärts, bis am linken Bildschirm- 
rand ein grünes Teufelchen auf- 
taucht. Den versucht man anzu- 
locken und läuft vor ihm weg. 
Nach ein oder zwei kleinen Weg- 
strecken in eine Richtung hat 
man ihn dann abgehängt. Auf der 
rechten Seite der Region eins be- 
findet sich eine Kreatur mit einer 
”ellenlangen” Zunge, der man 
besser aus dem Weg gehen sollte, 
da man sonst unweigerlich im 
Sumpf landet (auch eine Art ‚sich 
ganz schnell durch mehrere Re- 
gionen zu bewegen). Auch sonst 
scheint dieser Weg nicht ganz das 
Wahre zu sein, obwo9hl dort ein 
Fisch herumliegt, den man auf- 
nehmen kann. Hier wird man al- 
lerdings meist vom grünen Teu- 
felchen eingeholt‘und in ein Ske- 
lett verwandelt... 


An DANTES INFERNO wird 
sicherlich jeder, der sich auf die 
”Höllenfahrt” einläßt, einiges zu 
knobeln haben. Die: Grafik ist 
gut, der Sound ist jedoch eher als 
mäßig zu bezeichnen (nervt!). Die 
Spielmotivation würde ich gerade 
wegen der hohen Schwierigkeit 
und der ”ungewöhnlichen” Sujet 
als recht hoch einstufen. Das Spiel 
wird sicherlich seine Freunde fin- 
den. 

Martina Strack 





Fortsetzung von Seite 3. 


Ebenfalls neu bei DIM sind ver- 
schiedene Soft- und Hardware- 
produkte für den AMIGA (es 
geht also aufwärts mit der kleinen 
»Freundin”!). 


Eine 2 Megabyte-Speichererwei- 
terung (Preis: leider knappe 
2000,- DM) wird ebenso angebo- 
ten wie ein Database-Manager, ei- 
ne AMIGA-Lisp-Version, Lattice 
C und MCC Pascal. 


Info:DTM, Bornhofenweg 5, 
6200 Wiesbaden, 
Tel. (06121) 407989 





Auf vielfachen Leserwunsch haben wir uns entschlossen, unser Druckverfahren für 
Commodore-Listings zu ändern. 

Steuerzeichen sowie alle Grafikzeichen werden zukünftig durch Klartext ersetzt. 
Der Ausdruck ist kompatibel zum bisherigen Druckverfahren, ein neuer Checksum- 
mer ist aus diesem Grund nicht erforderlich. 3 


Eingabehinweise für alle Commodore Rechner! 

Wer sich schon etwas näher mit den Commodore Rechnern befaßt hat, wird sicher- 
lich wissen, daß der Grafiksatz des C 64 sehr viele ähnliche Symbole enthält. Aus die- 
sem Grund ist es oft sehr schwer, einzelne Zeichen, wie zum Beispiel horizontale Li- 
nien, voneinander zu unterscheiden. Besonders macht sich dieser Nachteil in Listings 
bemerkbar, welche die Bildschirmgrafik mit PRINT-Zeilen aufbauen. 

Bisher haben wir in unserem Ausdruck lediglich die Steuersequenzen wie CTRL-RVS 
ON oder CTRL-BLUE durch Klartext ersetzt, ab dieser Ausgabe werden jedoch auch 
alle Grafikzeichen durch ein Schlüsselcode ersetzt. Durch diese Methode sind Ver- 
wechselungen praktisch völlig ausgeschlossen. 

Wie arbeitet unser Klartext? 


Wer schon nach dem alten Verfahren Programme eingegeben hat, wird sicherlich kei- 
ne Beeehen mit der Umstellung haben. 

Für die se inzugekommenen Leser erkläre ich jedoch das Verfahren noch einmal 
grundlegend. 

Alle sogenannten Steuerzeichen (z.B. eine Farbe) sowie ein Grafikzeichen, werden in 
unseren LISTINGS durch ein CODEWORT, welches die Taste bzw. Tastenkombi- 
nation kennzeichnet, ersetzt. Eine Tabelle der Tastenfunktionen finden Sie in jedem 
Tronic-Magazin (z.B. Computronic o. Compute Mit). Das folgende Beispiel zeigt den 
Unterschied zwischen unserem alten und dem neuen Druckverfahren: 


C64 LISTING MIT CHECKSUMMEN (C V1.0) 


10 REM BISHERIGER AUSDRUCK <118> 
20 PRINT —— <52> 
30 PRINT"#1-————-| I, 4" <85> 
40 PRINT" ra! ” <149> 
50 PRINT"ENDE" <246> 


ENDE DES LISTINGS 
EDRUCK:F.B.] 


C-64 LISTING + CHECKSUMMEN (C V1.0) 


10 REM NEUER AUSDRUCK <162> 
20 PRINT"{DOWN4 SO CY9 SP}" <52> 
So PRINT"{SA SB SC SD SE SF SG SH SI SJ SK}" <85> 
40 PRINT"{CA CB CC CD CE CE C63" <149> 
50 PRINT"ENDE" <246> 


ENDE DES LISTINGS 
[DRUCK:F.B./0.S.] 


Wie in dem Beispiel zu erkennen ist, werden alle Steuertasten durch die entsprechen- 
de Tastenbeschreibung markiert. Das Wort DOWN steht in diesem Fall für Cursor 
nach unten. Die Zahl re gibt an wie oft die Taste betätigt werden muß. In unse- 
rem Beispiel müßte also die Taste CURSOR abwärts viermal betätigt werden. Die ge- 
naue Beschreibung, welche Taste gemeint ist, entnehmen Sie bitte der Klartext- 
Tabelle, welche am Ende dieser Beschreibung abgedruckt ist. Achtung für C16 und 
C64 existieren zwei verschiedene Tabellen! y 

Wie ebenfalls aus dem Beispiel zu erkennen ist, werden auch alle Grafikzeichen durch 
einen 2-Buchstaben-Code ersetzt. Der erste Buchstabe ist entweder ein »S« oder ein 
»C«. Das »C« steht für die COMMODORE TASTE« und das »S« für die »SHIFT 
TASTE«. Der zweite Buchstabe bezeichniet die Aufschrift der Taste. Das »SA« in’un- 
serem Beispiel bedeutet also, daß die Taste SHIFT zusammen mit dem Buchstaben 
»A« betätigt werden muß. »C+« würde bedeuten, daß die Taste COMMODORE zu- 
sammen mit dem PLUS Zeichen gedrückt wird. Wird direkt hinter dieser Buchsta- 
benkombination eine Zahl angegeben, so gibt diese die Anzahl der jeweiligen Zeichen 
an. Das Zeichen COMMODORE Y wurde also in unserem Beispiel 9 mal eingege- 
Er Busch diese Methode entfällt zukünftig das lästige Abzählen von mehrfachen 
Zeichen. 3 
Sollten Sie einmal nicht wissen, welche Taste gemeint ist, so hilft Ihnen ein Blick in 
unsere Klartext-Tabelle weiter. 

Um im Listing Tastenbezeichnungen von normalen Zeichen zu unterscheiden, wer- 
den alle Tastenkennzeichnungen in geschweifte Klammern gesetzt. Diese dürfen 
selbstverständlich nicht eingegeben werden. Auch Leerzeichen innerhalb geschweif- 
ter Klammern dienen nur zur Trennung einzelner Tastenfunktionen und dürfen 
ebenfalls nicht eingegeben werden. Um die Tastenfunktionen noch besser hervorzu- 
heben, werden diese in unterstrichener Kursivschrift (Schrägschrift) dargestellt.Alle 
eb der geschweiften Klammern werden normal abgedruckt und auch 
eingegeben. 

Auf den ersten Blick hört sich das sicher etwas kompliziert an, ist jedoch in der Praxis 
ganz einfach. Wenn man sich erst einmal an die in Klartext geschriebenen Zeichen 
gewöhnt hat, wird man den großen Vorteil dieser Schreibweise erkennen. 


Frank Brall 


Neu für alle Commodore Rechner C 64/VC 20 und C 16 


klartext 


Noch eine wichtige Anmerkung ! 

Aus technischen Gründen können drei Zeichen von unserm Ausgabegerät nicht ver- 
arbeitet werden. Diese Zeichen sind: Pfeil nach links, engl. Pfund, Pfeil nach oben 
— Steht für den Pfeil nach links 

\ Steht für das englische Pfund-Symbol 

* Steht für den Pfeil nach oben 


Klartext-Tabelle für Commodore 64 und VC 20 


DOWN CURSOR ABWARTS TASTE NEBEN RECHTEN SHIFT 
up CURSOR HINAUF HIT-TASTE & TASE NEBEN 
RECHTEM SHIFT 
CLR CLEAR SCHIRM SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
INST EINFÜGEN SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
HOME CURSOR IN ECKE 2.TASTE VON GANZ RECHTS OBEN 
DEL TE TASTE GANZ RECHTS OBEN 
RIGHT CURSOR RECHTS TASTE GANZ RECHTS UNTEN 
LEFT CURSOR LINKS SHIFT-TASTE & TASTE UNTEN RECHTS 
SPACE LEERZEICHEN LEERTASTE (GRÖSSTE TASTE) 
Fi FUNKTIONSTASTE FUNKTIONSTASTE Fi 
ER. FUNKTIONSTASTE FUNKTIONSTASTE F2 
F3 FUNKTIONSTASTE FUNKTIONSTASTE F3 
F4 FUNKTIONSTASTE FUNKTIONSTASTE F4 
B5 FUNKTIONSTASTE FUNKTIONSTASTE F5 
F6 FUNKTIONSTASTE FUNKTIONSTASTE F6 
F FUNKTIONSTASTE FUNKTIONSTASTE F7 
F8 FUNKTIONSTASTE FUNKTIONSTASTE F8 
BLACK SCHWARZ CONTROL-TASTE & 1 
WHITE WEISS CONTROL-TASTE & 2 
RED ROT CONTROL-TASTE & 3 
CYAN TUERKIS CONTROL-TASTE & 4 
PURPLE PURPUR CONTROL-TASTE & 5 
GREEN GRÜN CONTROL-TASTE & 6 
BLUE BLAU CONTROL-TASTE & 7 
YELLOW GELB CONTROL-TASTE & 8 
RVSON INVERSE EIN CONTROL-TASTE & 9 
RVSOFF INVERSE AUS CONTROL-TASTE & 0 
ORANGE ORANGE COMMODORE-TASTE & 1 
BROWN BRAUN COMMODORE-TASTE & 2 
LIG.RED HELLROT COMMODORE-TASTE & 3 
DGREY DUNKELGRAU COMMODORE-TASTE & 4 
MGREY MITTELGRAU COMMODORE-TASTE & 5 
LIG.GREEN HELLGRÜN COMMODORE-TASTE & 6 
LIGBLUE HELLBLAU COMMODORE-TASTE & 7 
HGREY HELLGRAU COMMODORE-TASTE & 8 
CTRL... CTRL-ZEICHEN CONTROL-TASTE UND DAS ... ZEICHEN 
Sam GRAFIKZEICHEN SHIFT-TASTE UND DAS ... ZEICHEN 


Gr GRAFIKZEICHEN > COMMODORE-TASTE UND DAS ... ZEICHEN 
SHIFTSPACE UNSICHTBARER CODE SHIFT-TASTE UND SPACE 





Klartext-Tabelle für Commodore C 16 und Plus 4 


DOWN CURSOR ABWÄRTS TASTE NEBEN INST DEL; RECHTS OBEN 

UP CURSOR HINAUF 3. TASTE NEBEN DOWN VON RECHTS OBEN 
CLR CLEAR SCHIRM TASTE ÜBER RETURN ZUSAMMEN MIT SHIFT 
INST EINFÜGEN SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
HOME CURSOR IN ECKE 2. TASTE VON GANZ RECHTS OBEN 

DEL DELETE TASTE GANZ RECHTS OBEN 

RIGHT CURSOR RECHTS 4. TASTE VON RECHTS OBEN 

LEFT CURSOR LINKS 5. TASTE VON RECHTS OBEN 

SPACE LEERZEICHEN LEERTASTE (GRÖSSTE TASTE) 

Fl FUNKTIONSTASTE FUNKTIONSTASTE Fi DVORHER DEFINIEREN 
F2 FUNKTIONSTASTE EFUNKTIONSTASTE F2 (VORHER DEFINIERE 
EB FUNKTIONSTASTE FUNKTIONSTASTE F3 (VORHER DEFINIEREN) 
F4 FUNKTIONSTASTE EUNKTIONSTASTE F4 (VORHER DEFINIEREN) 
B FUNKTIONSTASTE FUNKTIONSTASTE F5 (VORHER DEFINIEREN) 
F6 FUNKTIONSTASTE FUNKTIONSTASTE F6(VORHER DEFINIEREN) 
F7 FUNKTIONSTASTE FUNKTIONSTASTE F7 (VORHER DEFINIEREN) 
F8 FUNKTIONSTASTE  FUNKTIONSTASTE F8 (VORHER DEFINIEREN) 
BLACK SCHWARZ CONTROL-TASTE & 1 

WHITE WEISS CONTROL-TASTE & 2 

RED , ROT CONTROL-TASTE & 3 

CYAN TUERKIS CONTROL-TASTE & 4 

PURPLE PURPUR CONTROL-TASTE & 5 

GREEN GRÜN CONTROL-TASTE & 6 

BLUE BLAU CONTROL-TASTE & 7 

YELLOW GELB CONTROL-TASTE & 8 

RVSON INVERSE EIN CONTROL-TASTE & 9 

RVSOFF INVERSE AUS CONTROL-TASTE & 0 

ORNG ORANGE COMMODORE-TASTE & 1 

BRN BRAUN COMMODORE-TASTE & 2 

YL.GN GELBGRÜN COMMODORE-TASTE & 3 

PINK ROSA COMMODORE-TASTE & 4 

BLGRN _BLAUGRÜN COMMODORE-TASTE & 5 

L.BLU HELLBLAU COMMODORE-TASTE & 6 

D.BLU DUNKELBLAU COMMODORE-TASTE & 7 

LGRN HELLGRÜN COMMODORE-TASTE & 8 

CIRL.. __CTRLZEICHEN CONTROL-TASTE UND DAS ... ZEICHEN 

SE GRAFIKZEICHEN SHIFT-TASTE UND DAS ... ZEICHEN 

G.. GRAFIKZEICHEN COMMODORE-TASTE UND DAS ... ZEICHEN 
FLASHON BLINKEN EIN CONTROL-TASTE UND ",” 


FLASHOFF BLINKEN AUS CONTROL-TASTE UND ".” 
SHIFTSPACE UNSICHTBARER CODE SHIFT-TASTE UND SPACE 


Computs mib 


programme 
Quest for Tires 


Au weia! Da hat doch die selbst program- 
mierte Zeitmaschine einen ganz bösen Defekt 
gehabt. Gezischt, gekracht und gefunkt hat es 
in unserem VC 20. Nun stehe ich wie ein Wol- 
perdinger (Südbayrisches Fabeltier) mit Astro- 
nautenanzug im Neandertal und fahre Einrad! 
Das finde ich schon gar nicht mehr komisch. 
Erst wird man aus seiner Zirkusnummer geris- 
sen, in Weltraumkleidung gesteckt und muß in 
der Steinzeit auch noch diesen widerlichen Ur- 
vögeln ausweichen. Die Dinger sind wirklich 
gefährlich. Ducken und Springen muß ich - 
ich will zurück in die Zeit der Kernspaltung zu 
meinem geliebten VC20, um ein neues ‚Spiel 
zu programmieren. 


Was — immer noch mini? 
Satte 64 K tür C 161116 


Hardwareservice 


des Tronic-Verlags 


Unser 1. Angebot: 
64 K-Speichererweiterung für C 16 + C 116 


Bausatz — bestehend aus: 
allen Bauteilen und ausführlicher Anleitung, 
umschaltbar 64 K/16K - geliefert in stabiler Hartbox. 


Bitte Computertyp angeben! 
Bestell-Nr. HWS-1-786 45, - 


Achtung: 
Bitte nur schriftlich bestellen! 
Bei Vorkasse sparen Sie unnötige Kosten! 
Auslandsversendungen nur gegen Vorkasse! 
Bitte nur Bestellungen separat vom Softwareservice! 
Bearbeitungsdauer bis zu 3 Wochen! 


DM + NN (bei Vorkasse + 2,— DM Versand) 


Tronic-Verlag - Hardwareservice » Pf 870 - 


3440 Eschwege 





VC20 LISTING + CHECKSUMMEN (V V1.0), 


1 REMuRREERURERREERUNE <128> 
2 REM##(C) 1986 BY ## <235> 
3 REM##+ THOMAS ** <118> 
4 REM#* RDEDERN ## <142> 
5 REMERHRRRRERERRRERR <132> 
9 POKES6,28:POKES2,28:CLR:PRINT"{CLEAR BLACK RVS 


ON SPACESYBITTETSPACEIWARTEN{SPACES RVSOFF}Y"CHR$ 
(8) <51> 


10 DATA224,23,111,157,31,29,30,15 <182> 
11 DATAO,0,128,192,240,240,192,0 <112> 
12 DATA7,13,29,27,59,55,35,55 <137> 
13 DATA,128,128,128,128,128,128,0 <126> 
14 DATA27,27,17,13,30,30,30,12 <216> 
15 DATA14,15,27,59,59,59,59,59 <137> 
16 DATAS9,49,59,31,31,31,27,27 <91> 
17 DATA10,223,255,255,255,255,255,255 <131> 
18 DATA64 ,235,255,255,255,255, 255,255 <174> 
19 DATA130,235,255,255,255,255,255,255 <216> 
20 DATA240,240,120,120,60,28,6,0 <209> 
21 DATAO,6,28,60,120,120,240,240 <226> 
22 DATN255,252,248,240,240,224,224,224 <233> 
23 DATA224,224 ,224,240,240,248, 252,255 <182> 
24 DATA255,63,31,15,15,7,7,7 <52> 
25 DATA7,7,7,15,15,31,63,255 <92> 
26 DATA60,28,56,24,24,8,8,0 <191> 
27 DATA255,126,63,126,254,126,62,60 <138> 
28 DATAO,30,30,76,255,28,0,0 <141> 
29 DATAO,0,0,92,255,24,60,60 <229> 
30 DATA247 ,227,227,195,193,129,129,0 <7> 
31 DATA255,251,251,241,241,225,193,0 <154> 
32 DATA255,255,255,239,227,195,193,0 <57> 
33 DATA255,255,255,255,255,255,255,255 <16> 
34 DATAO,0,0,16,0,0,0,0 <87> 
35 DATAO,0,0,16,16,0,0,0 <255> 
36 DATAO,44,62,60,60,60,126,255 <55> 
37 DATAB,28,28,60,60,126,126,255 <147> 
38 DATA255,255,255,255,255,255,211,130 <61> 
39 DATA255,255,255,255,255,255,187,34 <228> 
40 DATA60,66,153,161,161,153,66,60 <15> 
41 DATA112,2498,216,248,252,221,58,240 <129> 
42 DATAO,0,0,0,0,0,0,0 <1> 
43 DATAO,96,240,248,248, 252,254 ,255 <151> 
44 DATAO,0,0,0,0,0,0,0 <3> 
45 DATAO,1,1,3,15,31,63,255 <218> 
46 DATA964,144,8,4,4,2,2,2 <68> 


Compute mib 









































Bea m 


A 

47 DATA2,2,1,1,1,1,2,2 <114> j 
48 DATAO,0,1,2,2,4,4,4 <217> i 
49 DATA4,4,8,8,8,8,4,4 <184> 
50 DATA4,4,4,2,2,1,0,0 <105> 
51 DATA2,2,98,148,12,12,146,97 <a9> 
52 DATA33,33,33,33,33,33,82,140 <180> E) 
53 DATA28,34,65,127,64,64,160,31 <70> 7 
54 DATA12, 18,33,65, 85, 65, 146, 12 <140> 5 
55 DATAO, 32, 16,16,16, 124, 16,16 <31> 
56 DATA16,16,15,16,18,16,168,70 <168> 
57 DATA&,9,9,9,10,12,24,40 <105> 
58 DATA72,9,43,28,8,8,8,8 <205> 
59 DATAS6,68,131,130,130,130,68,56 <241> 
60 DATAO,174,113,33,32,32,32,32 <74> 
61 DATA127,130,130,2,2,2,2,2 <146> a 
62 DATA240,0,0,0,0,0,0,0 <125> 
63 DATA2,2,2,2,2,2,18,13 <195> 
64 DATA16,0,16,16,16,16,40,199 <246> 
65 DATAO,46,113,33,32,32,96,160 <53> 
66 DATA28,34,65,255,64,64,32,31 <90> 
67 DATA12,18,33,65,65,65,146,12 <153> 
68 DATAO,0,1,3,3,1,0,0 <99> 
69 DATA224,240,176,176,176,176,16,176 <51> 
70 DATAO,1,3,3,3,1y,1,1 <147> 
71 DATA224,96,96,96,96,96,96,224 <169> 
72 DATA63,64,170,170,186,170,64,63 <165> 
73 DATA248,4,154,146,154,210,1,254 <126> 
95 0=36877: POKEO+1 ,15: POKEO+2,29 <252> 
100 FORX1=7168107455: READA: POKEX 1 ,A:8=5+A: NEXT <135> 
101 IFS<>3ISSSTHENPRINT" CLEAR DOHN2IT?ERROR{SPAC 
E} IN{SPACEIDATASTSPACEI 10-45" END <154> 
102 FORX1=7456107679: READA=POKEX1,A:5=S+AzNEXTX1 <174> 
103 IFS<>44955THENPRINT" CLEAR DOWN2Y?ERROR{SPAC 
E} IN{SPACEIDATAS{SPACEY4&-73":END <239> 
105 PRINT" {CLEAR} "sFORX1=1T02000: NEXT <81> 
110 A$="THOMAS{SPACEIRDEDERN" : GOSUB310 <36> 
112 A$="{SPACE3}PRESENTS" :GDSUB310:A$="" <51> 
114 PRINT"{CLEAR RED}":POKEO-B, 255: GOSUB300:PRIN 
T"{DOUNS BLUE SPACEITTRVSON SPACEIBY{SPACEITHOMA 
S{SPACE}ROEDERN"5 <79> 
116 FORX1=1T02500:NEXT <249> 
117 POKEO-8,240:PRINTCHR$ (14) <172> 
118 PRINT"{CLEAR DOUN WHITE RIGHT SHIIR{SPACEISC 
HREIBEN{SPACEIDAS{SPACES. SJIAHRLSPACEIZ2FFISTSPACE 
IV. {SPACE SCHHR." <121> 
119 FORX1=38422T038466: POKEX1 ,O:POKEO, 160: FORX2= 
1T040: NEXT:POKEO,0: NEXT: FORX1=1T02000 <69> 

2/87 


120 NEXT=SPRINT”{DOHN RIGHT SEISTSPACEYISTISPACE 
SIYHNEN{TSPACEYGELUNGEN{SPACEYEINEISPACE SZIEITMA 
SCHINE {SPACE} ZU" 

122 PRINT" {RIGHTYBAUEN, SPACEIMITISPACEYDERTSPAC 
E SSYIELSPACE4YJETZTISPACEYIN{SPACEYIDIETSPACE SV 
YER-SPACESIGANGENHEIT{SPACEIGEREIST" 

124 PRINT"{RIGHTYSIND. {SDYORT{SPACEYSIND{SPACE $ 
SYIELSPACEFZUTSPACEYEINEMISPACEYIJUNGEN{SPACE SH} 
ANN{SPACES}GEKOMMEN, {SPACE}IDER{TSPACE}GERADE” 

125 PRINT" (RIGHTIDAS{SPACE SR SA SD | SD SPACEYERFUND 
ENTSPACEIHAT.". - 

127 PRINT" {RIGHT SEYIRISPACEIHATTSPACEIABERTSPACE 
3EIN{SPACE7T}YGROSSES{SPACE SPYROBLEM, {SPACEIBEITS 
PACE2}DEMISPACE SSYIEtSPACE}YIHMISPACEIHELFEN 

1279 PRINT” {RIGHTYSDLLEN, {SPACEIDENN{SPACEYIESTSPA 
CE7}IHAENGT {SPACEYNICHT {SPACE}NURTSPACEYSEINTSPAC 
E SLYEBENtSPACEYDAVONTSPACEYAB. .." 
















































































PACEIDRUECKEN{BLACKY"ZE 

135 FORX1=384891038905: POKEX1 ,0:POKED, 160: POKED, 
O:NEXT 

156 WAITASS,4 

158 PRINT"{CLEAR DOHN4 SI} 
3DER{SPACE}WEITERE {SPACE 

ANNT{SPACE}I?" 

139 GETA$: IFA$="J"THEN200 
140 IFA$S<>"N"THEN139 

142 PRINT"ICLEAR RVSON SPACE3 SQYUEST{SPACEIFORT 
SPACE STYIRESISPACE4 RVSOFF}Y"z 

144 PRINT"{DOHN SUYNSERTSPACEIJUNGER{SPACE SHYAN 
N{SPACESYHEISST{SPACE SF3REDDI SPACEIUND{SPACEID 
ASISPACE SPYROBLEM{SPACE}IISTISPACEIFOLGENDES: " 
145 PRINT" {SFIREDDISTSPACE SGYELIEBTEISPACEYITISTT 
SPACE 2YVERSCHWUNDEN{SPACEIUNDLSPACEINUNTSPACE2IV 

ERSUCHT{SPACEYERTSPACEISIETSPACEYIZU" 

148 PRINT"FINDEN. {SPACE SEIRISPACEIHDERT{SPACEYII 

MMERWIEDER{SPACE}NUR{SPACE}IIHRE{SPACE7 SH}ILFERU 
FEISPACEYUNDTSPACEIMACHT" 

150 PRINT"SICH{SPACE}YDAHER{SPACEIMITISPACEYISEINE 
RISPACE SEIRFINDUNGTSPACEIAUF{SPACEZYIDENTSPACE 5 
W3EGSIETSPACE2}YZUTSPACE}ISUCHEN. " 

152 PRINT"{RED SDYABEISPACEIMUESSENISPACE SS SI 
SE SPACE} THMISPACEYHELFEN, {SPACEYDENN{SPACE}IERT 
SPACEYKANN{SPACE2YNOCHISPACEINICHT{SPACE SEYINRA 
DISPACESYFAHREN! !" 


ST{SPACE SIYHNENTSPACE 
SSYIPIELABLAUF {SPACE}IBEK 
















































































VSOFF SPACE}DRUECKEN{BLACK}":WAIT653, 4 

156 PRINT"{CLEAR RVSON SPACE3 S@HUESTSPACEIFÜRT 
SPACE STYIRES{SPACE4 RVSOFFY"z 

158 PRINT"{DOWN SDYAMIT{SPACEYER{SPACEISEINEISPA 
CE SGYE-ISPACE4>LIEBTEISPACE}IF INDET „{SPACEIMUESS 
ENISS}IIETSPACE}IHNTSPACEIUEBER{SPACE SHYULDEN,” 
160 PRINT" {SB}AUMSTUEMPFE{SPACEIUNDISPACE&S SS}YTE 
INEISPACEYHUEPFEN{SPACE}ILASSEN. "5 

162 PRINT" {SV}ORTSPACE Er N SEE en 
{SPACEIVORLSPACE STYROPFSTEINENTSPACEIMUSSTS, ACE 
YERISPACEISICHTSPACEYIDUCKEN. " 

1585 PRINT" {DOWN SS}YTEUERUNG{SPACE SJIOYSTICK"zEPR 
INT" (DOUN SJYOY. SPACEIHOBEN{SPACE2}Y: {SPACE SSIPR 
UNG " 

164 PRINT" (SJ}OY. ISPACEIUNTENTSPACE}: {SPACE SD}YU 
CKEN" PRINT" {DOHN SFYEUERKNOPF {SPACE}: {SPACE SP} 
AUSE I} 

165 PRINT" (NACHTSPACE Zu un. 










































































SPACE3DRUECKEN{BLACK}" sWAIT653,4 

168 PRINT"{CLEAR RVSON SPACE3 S@QYUESTISPACEIFORT 
SPACE STIIRESTSPACE4 RVSOFF}Y"3 

170 PRINT"{DOHN SDYA{SPACE SFYREDDISTSPACE SGYEL 
IEBTE SPACE3ISCHONTSPACEYLANGE {TSPACEINICHTSTSPAC 
ES}MEHR{SPACEIGEGESSENTSPACEIHAT," 

172 PRINT"IST{SPACE}IHREISPACE SLYEBENSENERGIEKU 
RZ{SPACEYVOR{SPACEIDEM{ISPACE SEYNDE. SPACE4 SDYE 
SHALB{SPACEIMUSS{SPACE SFYREDDI" 

174 PRINT"WAEHREND{SPACEISEINER{SPACE SSYUCHEISP 
ACE}YKLEINE , {SPACEZYABER{SPACEYSEHRISPACESISTAERK 
ENDEISPACE SF}LIEGEN" 

17& PRINT"FANGEN, {SPACEIDAMIT{SPACE}TIHREISPACE4 
SLYEBENSKRAFT {SPACE3WIEDER{SPACE4YSTEIGTISPACEIU 
ND{SPACE}SIETSPACEINICHT" 

177 PRINT"AN{SPACE SSYCHWAECHE(SPACEISTIRBT!” 
178 PRINT"{DOWN2 SPACE RVYSON SC ST SR SL RVSOFF 
SPACE}YDRUECKEN{BLACK}" :WAIT653,4 

180 PRINT"{CLEAR RVSON SPACE3 S@FUESTISPACEIFORL 
SPACE STYIRES{SPACES RVSOFF}I"35 

182 PRINT"{DOHN BLACK RIGHT sp SU SN SK ST SE}:" 
















































































<116> 


<16> 


<&8> 
<162> 


<17> 


<130> 
<144> 
<110> 
<5> 


<173> 
<37> 
<234> 
<76> 
<141> 
<199> 
<79> 
<47)> 
<49> 


<79> 


<90> 


<5> 
<253> 


<172> 
<217> 
<198> 
<23> 


<165> 
<102> 


<209> 


<10> 


<131> 


<bb> 


<30> 


<177> 


<114> 
<14> 


Programme 


184 PRINT" DOWN BLACK>PRO{SPACEILOLSPACE 
"3PRINT"{REDI+LISPACE3 SP SK ST}." 

185 PRINT"{DOHN BLACK}FUERTSPACEIJEDESTSPACE SD} 
UCKEN{SPACE>BEISPACEFEINEM{SPACE STIROPFSTEIN"s 
PRINT"{RED}+30{SPACE2 SP SK ST}." 

186 PRINT"{DOHN BLACK>FUERTSPACEIJEDES{SPACE SD} 
UCKEN{SPACEIBEI{SPACEIEINER{SPACE SFILEDERMAUS"s 
PRINT" {RED3+50{SPACEZ SP SK ST}." 

187 PRINT"{DOHN BLACK}PRO{SPACE}VERPASSTETSPACE 
SFILIEGE" SPRINT" {REDI-S{SPACE2 SP SK ST}." 

188 PRINT"{DOUN BLACK>PRO{SPACE SS}TÜRZ"=PRINT"t 
REDI-9OLSPACE SP SK ST}." 

189 PRINT"{DOHN SPACE RVSON SC ST SR SL RVSOFFE S 
PACE}DRUECKEN{BLACK}":WAIT653,4 

190 PDKED-8,240:POKEO-8,255 

192 PRINT"{CLEAR DOHN3 RIGHT GREEN}'#{BLUE RVSON 
SPACEI={SPACEIMULDE":PRINT"£DOUN RIGHT BLACKYZL 
BLUE RVSON SPACE2I={SPACEIBAUMSTUPF"=PRINT"DOHN 
RIGHT BLACK}L{BLUE RVSON SPACE2I=SPACEISTEIN" 
174 PRINT"{DOHN RIGHT BLACK}S{BLUE RVSON SPACE2}I 
={SPACE}FLEDERMAUS":PRINT"{DOHN RIGHT BLACKIYBL 
UE RVSON SPACE2I={SPACEIFLIEGE":PRINT"CDOUN RIGH 
T. BLACK}BCDOHN LEFT}P{UP BLUE RVSON SPACE2ZY={SPA 
CEITROPFSTEIN" 

197 PRINT"{DOHN4 SPACE RVSON REDYTASTETSPACE}DRU 
ECKEN" :POKE178,0:WAIT19B,1 

200 POKEO-8,255:PRINT"{CLEAR RVSON REDYALSOTSPAC 
EIVIEL{SPACEISPASSTSPACEIBEI" 

204 GOSUBS00:PRINT"(DOHN4 BLUE SPACEI”RVSON SPA 
CEIBY {SPACE} THOMAS{SPACE}RDEDERN" :FORX1=1T03000: 
NEXT 

205 POKEO-8,240:PRINT"{CLEAR REDYBITTELSPACEIWAR 
TEN! !":POKE198,3:POKE631 , 131:END 

300 RESTORE: FORX1=0T0287:READA:NEXT 

301 FORX1=7456T07679:POKEX1,0:NEXT 

302 PRINT" CHOHEI"TAR(F1)"&${DOHN LEFT2Y'ZADOUHN L 
EFT23 ()*+,. UP LEFTI-" 

303 PRINT"{DOWN3 RIGHT9Y/LDOWN LEFTIO12"LPRINT"T 
DOUN2 RIGHT12334{DOWN LEFT2356789" 

304 FORX1=7456107679:READA:POKEX1 A: FORX2=11035: 
NEXTX2,X1: RETURN 

310 PRINT"{CLEAR DOWN1O RIGHT4 WHITEY"A$ 

311 FORX1=38624T038624+LEN (A$) :PDKEX1,0:POKED,20 
0: FORX2=1T050:NEXT 

312 POKEO,O:NEXT:FORX1=1T01500: NEXT:RETURN 

ENDE DES LISTINGS 


SHYIETER 























































































































VvC20 LISTING + CHECKSUMMEN (V V1.0) 


POKES6 ‚28: POKES2 , 28: CLR: GOTO9IO 

POKE211,X:POKE214,Y:5Y558640: RETURN 

IFPEEK (8126+Z 1) >32THENS0O0 

RETURN 

IFFEEK (8105) =26&ANDU>3STHENS00 

IFPEEK (8105+Z1) =26THENS00 

10 IFPEEK (812&+Z1) >32THEN300 

11 RETURN 

13 IFPEEK (8105+Z1)=27THENS0O 

14 IFPEEK (8126+Z1) =23THEN300 

15 Y=14:X=1:605UB1: a POKE8009 ,2B+INT 
(RND (1) #2) s=POKES8729,0 

17 I= I+12 IFI< 1OTHENRETURN 

18 X=21-J:Y=15:G60SUB1:PRINT"@TDOHN LEFTYPISPACE 

UP LEFT SPACE}" = IFJI=OTHENPOKE8009,23 

17 J=J+1: IFJ=22THENX=0: Y=15: 605UB1:PRINT"{SPACE2 
DOUN- LEFT2 SPACE2}Y"2J=0: I=0: SC=5C+30: GOSUBT3Z:RE 
TURN 

22 IFJ>14ANDJI< 1BTHENIFZ2=OTHENS00 

23 RETURN 

24 8=0: Y=11:X=1:G605UB1:PRINTCHR$ (20) sPOKE7943,20 

+INT (RND (1) #4) :5C=5C+1: GOSUBS3 

25 POKE38663 ,6: RETURN 

26 G=0:F=F+1:PRINT" {HOHE3"TAB(129-F)F$: sRETURN 

28 Y=16:X=20:GD5SUR1:PRINT" {RED}>?" 

29 IFH=55STHENY=16: X=20: GOSUB1: PRINT" {SPACE2}"=H= 

O:E=E-35: GDOSUBS4 : POKES6875,0: RETURN 

30 POKES,250-(H/2#3) zRETURN 

31 E=E+50: GDSUB35:POKEBOS1-M,32:X=4: Y=15:560SUB1s 

PRINTF2$+C$: 7Z3=1:M=0:RETURN 

352 IFSC<OTHENSC=O 

33 PRINT"{HOHE RIGHTS RED RVSONY"SC"{LEFT SPACE} 
"3RETURN 


or »=-o© 








CSompute mi 


<78> 


<169> 


<193> 
<206> 
<170> 


<146> 
<36> 


<207> 


<207> 
<9> 
<36> 


<231> 


<251> 
<151> 
<125> 


<148> 
<47> 


<220> 
<96> 


<222> 
<157> 


<107> 
<222> 
<85> 

<148> 
<186> 
<126> 
<91> 

<153> 
<144> 
<10B> 


<228> 
<246> 


<129> 


<35> 
<27> 
<165> 


<147> 
<80> 
<57> 
<83> 


<191> 
<B8> 


<99> 
<63> 


<253> 


programme 


34 IFE<OTHENGOSUB700:GOT0415 

35 PRINT"CHOHE RED BESUNI"TABGITIENTEEET. SPACE" 
RETURN 

70 GOSUB&A00: PRINT" {DOHN3 RIGHT RED RVSONYVIELISP 
ACE}SPASS! {RVSOFF}"TAB(177) " {BLACK} SPACE RVSON 
>BV {SPACE} THOMAS{SPACEYROEDERN"CHR$ (8) 

97 S=36875: POKES+4 , 125: POKES-6, 2553 POKES+3,15:L1 
=3:1L=1:E=450:SC=0 

100 A$= 


























DOHN LEFT2ZY@AISPACE DOHN LEFT3>BETDOHN LEFT2YDE 
SPACEY"SC$="@ALDOHN LEFTZYETSPACE DOHN LEFT2YFS 
PACE DOUN LEFT2YD{SPACE DOUHN LEFT2 SPACEY" 

109 D=0:F=0:6=0:H=0: I=0: J=0:M=0:N=0: 0=0: Q=0: U=01 

V=0: Z=0: T=0:R=0: Z1=0: Z2=0 

110 GOSUB700: GDSUB710: GUSUB7Z0:PRINT* TELEARY" PO 

KES+4 , 13: G0OSUB721 

111 PRINT" CHOHEI "TAB (227) " (BLACK RVSONYLEVEL{SPA 

CE}"L: sFORX1=0T010: POKESB626+X1 „1 3POKES+2, 145: FO 

RX2=1T080: NEXT 

112 POKES+2,0:NEXT:PRINT" {HOHE DOHNY"TAB(ZAI)" CB 

LACK RVSONYLIVES{SPACE}I"LIsS a FORX1=0T010: POKE3867 

O+rX1,1 

113 POKES+2, 145: FORX2=1T080: NEXT: POKES+2,0:NEXTs 

FORX1=1T01000: NEXT: GOSUB720: PDKES+4 , 125 

114 PRINT" {CLEAR}" =FORX1=8142T08185:POKEX1,23:PD 

KEX1+30720,5: NEXT: F1$="{GREEN}"s IFL<>4THEN119 

115 FORX1=8142T08185: POKEX1+30720,0:NEXT:Fi1$="{B 

LACK} "PRINT" {HOME} "3 = POKES+4 ,29:G0OT0116 

116 PRINT"{HOHE DOHNI" 3 :FORX1=1T013: PRINT" {BLACK 
_ FUUWWURHARUUNWTNUWHADIERN" 3 5 NEXT 

117 FORX1=8120T08141:POKEX1,7+INT (RND (1) #3) sPOKE 

xX1+30720,0sNEXT 

118 FORX1=7988T08009: POKEX1, 28+INT (RND (1) #2) 3POK 

EX1+30720,0:NEXT:GOT0122 

119 IFL=STHEN122 

120 FORX1=1T011:PRINT" {BLUEFWUWRWWAWRWWHRWURNW IN 

WW"3 NEXT 

121 PRINT" {HOHE} "TAB (243) "TWVUTUTWVVTWUVTWTTUTU" 

122 IFL=STHENFORX1=1T020: POKE7702+INT (RND (1) #242 

) „24+INT(RND(1)*2) NEXT 

123 IFL=STHENFORX1=8142T08185: POKEX1+30720,6:NEX 

TeFi$="{BLUEY"S:POKES+4,, 13: F2$=" (HHITEI":GOTO127 

124 F2$="(BLACKY" 

126 IFL=4THENGOSUBS10:G0OT0130 

127 IFL=STHENF$="CHHITE>IKIDOHN LEFTYITBLACKIWLUP 

LEFT}W":GOTO129 

128 F$="{BLUE>LNWIDOHN LEFTIIMOW" 

129 PRINT" {HOHE}I"TAR(129)F$ 

130 X=6: Y=16: GOSUB1:PRINTF2$+A$ 

151 PRINT"{HOHE RVSQON RED}YSCORE"SC=SPRINT"CHOHE R 
VSON REDY"TAR(II) "ENERGY"E 

132 IFL=10RL>4THENGOSUBSOS 

133 IFL=20RL=STHENGOSUBSOO 

134 GOSUB721 \ 

200 D$=RIGHT$ (D$, (LEN (D$) -1)) 3 X=0: Y=20: GOSUB1: PR 
INTFi$+LEFT$(D$,22) 

20i IFL>LANDL<STHENE$=RIGHT$ (E$, (LENIESI)-1)) sX=O 
: Y=19:GOSUB1: PRINT" {BLACK}Y"LEFT$ (E$,22) 

205 IFLEN (D$)=22THENL=L+1:G0T0109 

210 SY5828: IFZ2=0THENIFPEEK (251) =152THENZ 1=-22 
212 IFZi=0THENIFPEEK (251)=148THENZ2=1 

213 IFPEEK (252) =0THENPOKE198,0:WAIT198,1 

214 IFZ1=-22THENU=U+1: IFR=OTHENX=6: Y=15:G605UB1:P 
RINTF2$+C$:R=1 

216 IFU=STHENX=&4: Y=16: GDOSUB1 :PRINTF2$+A$:U=0: Zi= 
O:R=0 

218 IFZ2=1THENV=V+1: IFT=SOTHENX=5: Y=165: G0OSUB1:PRI 
NTF2$+B$: T=1 

220 IFV=STHENX=6: Y=16: G60SUB1:PRINTF2$+A$: V=0: Z2= 
0: T=0 

221 ONLGOSUB4,8,8,13,4,4,400 

225 IFL<40RL=6&THENG=Q+1: IFQ=STHENGOSUB24 

226 H=H+1: IFH>SOTHENGOSUB28 

227 IFL=4THEN20O 

228 G=G+1: IFG=20THENGOSUB2& 

230 IFZ3THENZ3=INT (RND (1) #30) :G0OT0238 

231 POKE8031-M,32:M=M+1:POKE38B751-M,43POKEBOS1-M 

„23 
232 IFM>2OTHENPOKE8031-M,32:M=0: Z3=1:5C=SC-5:605 
UB32:E=E-5 
233 IFM>13ANDM<A17THENIFZ1=-22THENGOSUBS1 
238 IFL<>Z2THENN=N+1: IFN>9THEN242 
240 GOT0200 
242 POKE8053-D,32:D=D+1:POKE38773-D ,4: POKE8053-D 
‚„‚18+K: IFK=OTHENK=1:6DT024& 
























































"{UP SPACE2 DOHN LEFT2Y@ALDOHN LEFT2ZYEISP 
ACE DOWN LEFT2YFLSPACE DOUN LEFT2YD"2B$="{SPACE2- 


<76> 


<169> 


<179> 


<131> 


<131> 
<41> 


<210> 


<200> 


<30> 
<253> 
<43> 
<254> 
<160> 
<198> 


<18> 
<219> 


<241> 
<34> 


<245> 


<213> 
<82> 
<109> 


<69> 
<S1> 
<83> 
<102> 


<253> 
<201> 
<140> 
<219> 


<13> 


<252> 
<152> 
<38> 

<224> 
<140> 


<41> 
<195> 
<18> 


<&2> 

<144> 
<253> 
<200> 
<43> 

<139> 
<231> 


<126> 
<37> 
<67> 
<I0> 
<a5> 


<131> 


244 K=0 


246 IFD>20THENFOKE8053-D, 2: D=0:N=0: SC=5C+50: 605° i 
3242333 
”<184> 


UBS3 

248 IFD>13ANDD< 17THENIFZ2=0THENS0O 

250 GOTO200 

300 POKES,0:X=&: Y=16: G0SUB1 :PRINTF2$+A$sE=E-60:5 
=5C-90: 605UB32:GOSUB34 

301 POKES+2,200:FORX1=15T00STEP-. 13POKES+3,X1:NE 

XT:POKES+2,0:POKES+3,15 

302 X=6: Y=16:G05UB1:PRINTF2$+" {SPACE2 DOHN —— 








}"LGOSUB700: 6010415 

400 X=6&: Y=1&: GDSUB1:PRINTF2$+A$:D$="{BLACKY: _{SP 
ACE DOUHN LEFT3Y<5; {SPACE DOHN LEFT2)=(SPACE}"SC= 
SC+E 

404 X=19-0: Y=17:6D0SUB1:PRINTD$: 0=0+1s3 FORX1=1T040 

O:NEXT:= IFO<>1OTHEN404 

409 FORX1=1T0120: IFZ=1THENGDSUB413:PRINT"{RED RV 
SON SS}"227=0:60T0411 

410 IFZ=0THENGOSUB413:PRINT"{SPACE}I"=Z=1 

411 FORX2=1T010:NEXTX2,X1:60T0415 . 

413 X=8+INT (RND(1)*2) 3 Y=17+INT (RND (1) #2) 1 GOSUB1 a 
RETURN 

415 POKES+4,125:60SUB&00: PRINT" {HOHE RVSON}Y" TABL 
76) "{BLUEYGAMEISPACE}OVER" 

416 IFE<=0THENPRINT"{DOHN7 RVSON}YFREDDIS{SPACEIG 
ELIEBTE{SPACE}YIST{SPACEZIWEGENTSPACE} IHNEN{SPACE 
3VERHUNGERT" 

417 PRINT" CHOHE DOWHN4)"TAB(242) " {RVSONISCORE: "SC 
s IFSC>HITHENHI=SC 

418 PRINT"{DOHN RVYSON}HIGHSCORE: "HI=PRINT" {RVSON 
DOWN2YNOCH{SPACEYEIN{SPACEYSPIELTSPACE}Y?" 

420 GETA$: IFA$="J"THENFO 

A421 IFA$<>"N"THEN420 

a22 SYS32 

500 E$="{RIGHT2SYZISPACE RIGHT22YZ{SPACE RIGHT28 
y" 

501 ESSERLIERIENTISFZESPAGE RIGHTUZAEISPAGE RIGH 
T26YZ{SPACE RIGHTSY" 

502 E$=E$+"{RIGHTI9IZZ{SPACE RIGHT28YZ1SPACE RIG 
HTI2YZ{SPACE RIGHT7Y" 

503 E$=E$+" {RIGHT22>" 

505 D$="IHGHHIGHIGHHHGIHHIGHI IHIGHGHHIGHIGGHG ! #1 
HI!#!#GIHIHHGIGH'! #GGHHHIGHH !#GIHIH!#IGH 

505 D$=D$+"GHH!#!#GHIGGIHGHHHIGIGHGGGHI !##GHIHH 
GHHIHHIHH ! #GGHIGIH!#GIHG ! #HGHGHHSHGH” 

507 D$=D$+"GGHIGHI !#HHGIH ! #GHIHHHGHIHIHGHHHIGG !# 
GHHHGHI ! #GHGSGHIGIHSHHIHGGHGTHHHH ! HI" 

508 D$=D$+"GHIGHGIGHHHIHIGHHIGHHG" = RETURN 

510 E$="{RIGHT23IT{SPACE RIGHTZ3ILTSPACE RIGHT1O} 


























L{SPACE RIGHTYILISPACE RIGHT4YTISPACE RIGHT4ILSP 














ACE RIGHTIOFT{SPACE RIGHT4YL{SPACE RIGHT2I" 


511 E$=E$+"{RIGHT2ILLSPACE RIGHT4YLLSPACE RIGHTI 


OYLL£SPACE RIGHTTILLSPACE RIGHT4ILISPACE RIGHTIF 
ILLSPACE RIGHTSYIL{SPACE RIGHTSYITLSPACE RIGHTY“ 




















512 E$=E$+"{RIGHTILYTLSPACE RIGHTSEYL{SPACE RIGHT 
SYIC{SPACE RIGHTIYYTISPACE RIGHTSILISPACE RIGHTI4 








IL{SPACEI" 

513 E$=E$+" {RIGHTZI}" 

514 D$="GHISHGHGHIHSHGHGSHGIHBIHWHIGSGWIGBIIHGGIHB 

WIHWGHIHIWSHIHIWGHIHGIHIGIHWGHIGHWGIH" 

515 D$=D$+"GHWHIGISWIHISIHGHIGHWWSHIGHGHIWGHIHIW 

GHIGIGSHIGHSHSHSHGHIHWGHIGHGWHIGIHIWGG" 

516 D$=D$+"GHIGHIGHIGIWGHIGHIHWGHIGIHWGHIGHIIGHG 

HGHI I IHHIGWGHSHIHIHIWGHGHIGHIIHIHIHIWI" 

5 D$=D$+"GHISHISHIGHIGHIGHIGHI "RETURN 

600 PRINT"{CLEAR BLACK DOWN RIGHTY&$S{DOUN LEFT2} 

"K{DOUN LEFT23()*+,.{UP LEFTI-"SPRINT"{DOHN2 RIG 

HTS3/{DOUR LEFTIO12" 

601 PRINT"{DOUN RIGHT7334{DOHN LEFT2356789":RETU 

RN 

700 RESTURE: FORX1=0T010:READA: POKES ‚As READB: FORK 

2=1T0B*200:NEXT=zPOKES,0:NEXT 

701 RETURN: DATA195,3,195,2,195,1,195,2,203,2,201 

»1,201,2,195,1,195,2,191,1,195,3 

710 FORX1=0T034:READX2: POKEB2B+X1,X2:NEXT: RETURN 

711 DATA169,127,141,34,145,173,32,145,41,128,133 

„251,169,255,141,34 

712 DATA145,173,31,145,41,28,24,101,251,133,251, 

173,31,145,41,32,133,252,96 

720 FORX1=38T0160: POKES-10,X13NEXT:RETURN ; 

721 FORX1=160T038STEP-1:POKES-10,X12NEXT3RETURN 
ENDE DES LISTINGS 














Compute mib 


<51> 


<55> 
<116> 


<124> 


<172> 


<> 


<231> 
<27> 
<18> 
<535>: 
<32> 
<98> 


<a0> 


<126> 
<82> 
x7> 
<202> 
<171> 
<65> 
<18> 
<114> 


<226> 
<100> 


<223> 
<b> 
<201> 


<100> 
<> 


<195> 


<27> 


‚4> 


<217> 
<92> 
<228> 
<139> 
<45> 
<37> 
<62> 


<o> 
<223> 


<134> 
<215> 


<40> 
<179> 


programme 


Leser- und Meckerecke 





Checksummer C 16 


Sehr geehrte Herren, (...wir haben 
auch Damen in unserem Verlag! 
Anm. d.R.) 

ich war sehr erfreut, als in Ausgabe 
6/86 der Checksummer für den C 16 
abgedruckt wurde. Doch schon nach 
dem Abtippen ergab sich ein Problem. 
Die Checksummen wurden zwar an- 
gezeigt, aber auch nach dem Abschal- 
ten des Checksummers mit SYS 
62158:SYS 33047 konnte ich das ein- 
gegebene Programm nicht absaven. 
Was sich nach SAVE-Vorgang auf der 
Kassette befand, war der Checksum- 
mer und nicht das eingetippte Pro- 
gramm. Vielleichtwissen Sie, wie man 
diesen Fehler vermeidet? Dann noch 
'eine zweite Frage: Gibt es eine Pascal- 


Version für den C-16? 

Kotthaus, Braunschweig 
Checksummer C 16 

Sehr geehrte Damen und Herren! 
Der oben genannte Checksummer ar- 
beitet nur bei Neueingabe eines Pro- 
grammes einwandfrei. Wenn ich ein 
Programm einschließlich Checksum- 
mer von der Datasette lade, um weite- 
re Programmzeilen einzugeben, läßt 
sich der Checksummer nicht mehr 
starten. 


Ich wäre Ihnen dankbar, wenn Sie mir 
mitteilen könnten, wie man hier Ab- 
hilfe schaffen kann. 

Ellerweg, Halle 

Die Redaktion: 

Dieser beiden Leseranfragen, möchte 
hier stellvertretend für eine Vielzahl 


von Anfragen beantworten. Im Fall 1 
wurde der Checksummer von Herrn 
Müller falsch bedient. Sie müssen sich 
klarmachen, daß das vorliegende Li- 
sting des Checksummers ein Basicpro- 
gramm darstellt, welches nach RUN 
im Speicher ein Maschinensprache- 
programm ablegt und aktiviert. Wol- 
len Sie nun ein neues Listing eintip- 
pen, müssen Sie natürlich das ur- 
sprüngliche Basicprogramm des 
Checksummers aus dem Basicspeicher 
mit NEW entfernen. Diese Bemer- 
kung hat leider bei älteren Ausgaben 
gefehlt, aber auch mit korrekter Anga- 
be haben sich bei einigen Mißver- 
ständnisse eingestellt, so daß der 
Checksummer nach dem Eintippen 
mit NEW gelöscht wurde, bevor er 


überhaupt abgesaved wurde (also alles 
für die Katz). 


Zum zweiten Fall müssen wir leider 
sagen, daß es mit der vorliegenden 
Version nicht möglich ist, bereits ferti- 
ge Programmteile einzuladen oder so- 

ar einer erneuten Checksummenprü- 
Kung zu unterwerfen. Abhilfe kann 
hier nur eine MERGE-Routine schaf- 
fen, mit der Sie separat abgespeicherte 
Programmteile zu einem einheitlichen 
Programm zusammenfügen können. 
Unsere Programmabteilung arbeitet 


‘momentan an einer überarbeiteten 


Version, die desen Mangel behebt und 
auch bei Überlangen Zeilen problem- 
los arbeitet. (Eine Pascal-Version für 
den C- 16 ist uns nicht bekannt) 


Uwe Knierim 





Cave Fighter 





Steuern Sie Ihr Raumschiff an al- 
len Gefahren der Höhle (Laser- 
strahlen; Säuretropfen; feindli- 
ches Raumschiff) vorbei zu den 4 
Bonussymbolen hin. Hat man 

ies überstanden, so dringt man 
in den Meteoritentunnel ein, wo 
mn für eine bestimmte Zeit flie- 
genden Meteoren ausweichen 


muß. Ist auch dies geschafft, so be- 
ginnt das Ganze wieder von vor- 
ne. Während des Spiels ist außer- 
dem darauf zu achten, daß man 
nicht gegen die Wände stößt oder 
die Zeit abläuft. Diese verringert 
sich von Level zu Level. 


Gesteuert wird mit dem Joystick. 





VC20 LISTING + CHECKSUMMEN (V V1.0) 


185 PRINT"{RVSON CLEARYHAT{SPACEYIMAN{SPACEYDIESE 
10 FOKE34879,8:F=7168 <3> tSPACEYSTUFE{SPACE3 DOHNYSIEGREICH{SPACE}BEENDET 


11 FRINT"{CLEAR HHITE>" <95> | „{SPACE}ISOTSPACE DOHN}DRINGT{SPACEIMAN{SPACEI INT 


































































































































































































12 FRINT"{RVSON DOWHNS RIGHTSFYELCHSOFT{DOHNZ2 LEFT SPACE} DEN{SPACEIME-" <230> 
SYPRESENTS: {RVSQOFF}" <174> | 187 PRINT" {RVSON DOHN> TEORIDENTUNNEL{SPACEFEIN,t 

a a er ne ge <14> | SPACEIWOTDOHN:MANTSPACEIMETEORITEN, {SPACEIDIELSP 

160 FORY=1T040 <45> | ACE3 DOWN>AUFASPACEYEINEN{SPACEIZUKOMMENISPACEI" <148> 
101 FORI=0T07:READA: FOKEP+I ,A:NEXTI <17> |188 PRINT"{RVSON DOHNFAUSWEICHEN{SPACEIMUSS. {SPA 

102 P=P+8:NEXT <180> | CE& DOHNIHATLSPACEFMANLSPACEIAUCHTSPACEIDIES{SPA 

110 POKES6869 ,255 <4> CEYER-- {SPACE DOHNYFOLGREICH{SPACE}ABGESCHLOS-" <59> 
150 PRINT"tCLEAR YELLOH DOHN2 RVSONY"Atz "C{SPACE 189 FRINT"{RVSON DOWN}SSEN, {SPACE}SOD{SPACEIERHAE 
FALSPACEIV{SPACEFETSPACE2YFISPACEFTXSPACEIGTSPAC LTESPACEIMAN{SPACE2 DOHN}ZOO{SPACEFBONUSPUNKTE." <«74> 
EIHISPACEITISPACEIETSPACEIR"ZASS"(DOHN2 RVSOFFI" <21> | 190 FÜKEL9IB,0:MAIT1FB,1 <76> 
152 PRINT" {RIGHT7YDDDI {SPACE4}" <212> | 191 PRINT" CLEAR RVSONINACHTSPACEFAUFZAEHLUNGESP 

154 FRINT"{RIGHT7 SPACEYBISPACE3>VESPACE2Y" <189> | ACE}DER{SPACE2 DOHNIPUNKTE{SPACEIWIRDISPACENDAST 

156 PRINT"{RIGHT7 SPACE2YDV{SPACEYDV{SPACEY" <9> | SPACEIZEIT--(SPACE DOUN>LIMITISPACEIETWASCSPACEIV 

158 FRINT"{RIGHTT SPACE23DDDDDI" <I7BSIERKREELSN Se Fi <237> 
160 FRINT"{RIGHT7 SPACEZIDCE{SPACEIDEISPACEF" <230> | 192 FRINT" {RVSON DOHN}YNERT „ {SPACEIUND{SPACEIDASE 

161 FRINT"{RIGHT7 SPACEYWISPACE3FT{SPACE2Y" <142> | SPACE}IGANZEISPACEZ DOWN}BEGINNT{SPACEIWIEDERLSPA 

162 FRINT"{RIGHT73DDDI{SPACE4Y" <222> | CE}VON{SPACES DOWN? VORNEXSPACEF!" <11> 
164 PRINT" {RVSON DOHN3> "At; "SPACEZYWRITTENTSPAC 193 FRINT" {RVSON DOHN2>STEUERUNG: JOYSTICK" <«200> 
EIBYISPACE>M. ALTISPACEZI" 3 A$5 "ERVSOFF}" <21> | 195 FOKE198,0:WAIT19B,1 <B1> 
165 POKE198,0:WAIT 198,1 <51> | 700 PRINT"{CLEAR YELLOW DOWN3 RIGHT2 RVSONYFARTL 

170 PRINT"(CLEAR CYAN RVSON DOHNT RIGHT4 SPACE>A £ SPACEYZ{SPACE} ISTSPACEYLOADING{SPACE BLACK}":POK 
NLEITUNG{SPACEF?{DOHN2 LEFT43 (Y/ND" *93> | E631,131:POKE198,1 24> 
171 GETAS <58> 897 END <b> 
172 IFA$="Y"THENFRINT"{CLEAR HHITE}":GOTO180 <42> | 900 DATA240,68,54,63,54,68,240,0 <127> 
173 IFAS="N"THEN70O <1135> | 901 DATA15,34,108,252,108,34,15,0 <211> 
ı74 GDT0171 <2> 902 DATN2SS,127,62,31,15,7,3,1 <77> 
180 PRINT" {RVSON}>SIE{SPACE}MUESSEN{SPACE}IHR{SPA 903 DATA255,754,252,248,240,224,192,128 <125> 
CE+FLUG-{SPACE DOUNYOBJEKT{SPACE}ZULSPACEFIALLENT 904 DAINZ2SS5,255,255,255,255,255,255,255 <122> 
SPACE}4LSPACE}BO-{SPACE DOHNYNUSSYMBOLENTSPACEIS 905 DATA28,28,28,28,28,28,28,28 <219> 
TEUERN{SPACE} !" <124> | 906 DNTN127,14,28,119,119,28,14,127 <185> 
181 PRINT"{RVSON DOUN3DABEI{SPACEIDUERFEN{SPACEI 707 DAIA16,146,84,56,56,84,146,16 <177> 
SIETSPACES DOHN>NICHT{SPACEIGEGEN{SPACE}IDIETSPAC 908 DATA126,195,165,153,153,165,195,126 ‚<30> 
E}MAUER , {DOWN}DIE{SPACEILASERSTRAHLEN, {SPACE}DEN 309 DATA128,192,224 ,240,240,224,192,128 <1> 

ID <51> | 910 DATA28,29,127,255,255,255,255,255 <35> 
182 PRINT" {RVSON}SAEURETROPFEN{SPACE }ODERTSPACE} 911 DATA2S55,255,255,255,755,127,29,28 <29> 
DAS{DOHN}FEINDLICHE{SPACEIFLUGOBJEKT{SPACE DOHN} 912 DATA9I,95,255,255,255,255,255,255 <91> 
STOSSEN. " . <247> | 913 DATA255,255,255,255,255,255,95,9 <207> 
183 PRINT"{AVSON DOHNFAUSSERDEM{SPACE}ISTISPACEI 914 DATAO,0,213,253,255,255,255,255 <a2> 
DIE{SPACE} ZEIT {DOHN} ZULSPACE>BEACHTEN{SPACE} !" <227> | 915 DATA255,255,255,255,253,213,0,0 <59> 
185 FOKE198,0:WAIT198,1 <71> | 91& DATA240,240,224,240,248,248,252,255 <186> 


2187 Sompute mib 


10 


rt &6} 


programme 


917 
918 
919 
920 
921 
922 

22 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
724 
735 
926 
937 


DATA255,252,2498,248,240, 224,240 ,240 
DATA248,240,192,240,248,224 ,224 ,240 
DATA31,15,31,63,63,31,63,31 
DATA2SS,63,31,31,15,7,15,15 
DATA15,15,7,15,31,31,63, 255 
DATA128,192,224,240,248,252,254,255 
DATA1,3,7,15,31,63,127,255 
DATAO,0,3,7,31,63,63,127 
DATA127,63,63,127,63,15,3,0 

DATAO, 192,240 ,252,254 ,252,252,254 
DATA2S4 ,252.252,248,224,192,0,0 
DATA63,31,15,21,63, 31,15, 51 
DATA248,240,248,252,248,240,248,252 
DATA126,60,56,60,124,60,28,124 
DATAO,24,60,60,24,0,0,0 
DATAO,0,0,0,0,0,0,0 
DATAO,0,0,1,146,68,16,56 
DATAO,S,7,15,31,63,63,31 
DATA248,252,252,248,240,224,192,0 
DATAZ1,63,63,31,15,7,3,0 
DATAO, 172,224,240,248,252, 
939 DATAO,5,7,15,21,63,63,31 
7397 DATAS6,126,127,255,127,127,63,30 
FED MEERE ER 

951 * # 

952 # CAVE FIGHTER #* 

958 * + 

PA NUN NUN 

95T %* * 
756 *#(C) BY ELCHSUOFTIR 
337% * 
FEB KUREN 
757 %* %* 
760 * WRITTEN RY 

961 * 

762 %* 
965 * 
9652 BREI 


252,248 


* 
“ 
M.ALT * 
#* 
* 
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<111> 
<161> 
<78> 
<77> 
<191> 
<196> 
<105> 
<122> 
<36> 
“2> 
<141> 
<246> 
<201> 
<1987> 
«233> 
<126> 
x220> 
<46> 
*“106> 
“168> 
<140> 
<50> 
<21> 
<133> 
<190> 
<151> 
<192> 
<137> 
<194> 
<117> 
«196> 
<141> 
<198> 
<86> 
“200> 
<193> 
<202> 
<147> 





vozo LISTINGS + CHECHSUMMEN (V V1.0) 


5 21-300 

10 V=36877: FOKEV+2 ,8: FOKEV-8, 255: POKEV+1 „15: POKE 
27139,0:A=8140: D=22:F=59:6=120: 2Z=1: VV=-1 

11 S1=-8158:52=8110: 53-8150: H=21:J=7744:K=7841:L= 
21:01=23:02=-01 

15 GOSURFOO 

17 VV=VV+1:G60OSUEFLO 

110 FOKEA,1:FOKESI1 ,S:FOKES2,S5: POKES3,5:POKEJ,6:P 
OEEHR,L 

111 FRINT"{HOHE RVSON?PUNKTE:S ";SC 

180 IFOF=OTHENI1FO 

181 FRINTSFRIGHTF (ABO) „XILEFTS(AFLO),Y)s 

182 

Ya 

183 X=eX-1:Y=Y+l: IFX=0THENX=22 

1084 IFY=Z2THENY=O 

185 Q=0+1: 1FO=ZO0THENA=8140: OP=0: BOSUBZ280: GOSUBZ 
00: 0=0: CC=0: G0T015 

185 IFP=OTHENGOSULTSO 

187 ONUGOSUR420 ,400,440 

188 IFF=19THENPOKER ‚32: FOKEWI1 ,32:F=0 

187 GOTO199 

190 FOEES1 ,F:FOKES2,F:FOKES3,F:51=51-D:52=52+D:5 
3=835-D: GOSUR2SO 

171 FOKESS,S:POKES2,5:FOKES1,S 

192 FOKEJ ,32:J=J+H: GDSUR290: FOFEJ ,& 

174 POKEK ,32:K=K+22:GOSUB300: POKEK „L 

195 ZT=ZT-1:PRINT" HOME RVSON RIGHTI163"ZT"XLEFT 

SPAGE}": IFZT=OTHEN79O 

197 JI=FEER. (37137) :POKE37154 ,127:J8=PEEK (37152) 2 
FOKE37154,255 

200 IFOP=1THEN203 

201 TFCIFANDIA)=OTHENZ=-1:27Z=1:605UR220 

202 IF (JBANN128B)=0OTHENZ=1:ZZ=0:605UB220 

203 IFtJFANDB) =OTHENZ=22:GOSUR22O 

204 IFtUFAND4) =O THENZ=-22: GOSUB220 

SOTOLAO 

220 FOKEV-1,177:POKEA,32:A=At 2: 60SUB230: POKEA,ZZ 
:FOKREV-1,0 

225 RETURN 

250 IFPEEK (A) =BTHENGOSUBZ8GC: RETURN 






<249> 
<240> 


<167> 
<94> 
<160> 


<233> 
<7> 
<62> 
«58> 


<68> 
<219> 
<102> 


<158> 
<I> 
<131> 
<28> 
<55> 


<210> 
<33> 
<697> 
<21> 


<81> 


<x236> 
<49> 
<57> 
<42> 
<32> 
«119> 
<37> 


<210> 
<111> 
<113> 


233 
235 
250 
251 
252 


IFFEEK (A) <>32THEN?90 

RETURN 

IFS1=AQRSZ=AUORS3SATHENTFO 
IFS1=8114THENF=32:D=-D 

IFS1=B158THENF=5: D=-D 

255 RETURN 

280 FORT=1T0100: POKEV-1,6:5C=SC+i1:PRINT"tHOHE RV 
SONF>PUNKTE: "35C:6=6+1:NEXT:6=120:POKEV-1 ,0:CC=CC 
+1 
281 
2895 
290 
292 
293 
294 
23 
300 
301 
302 
305 
310 
311 
>12 
313 
314 
315 
S350 
351 
352 
353 
333 
400 





IFCC=ATHENSE=SC+HZT: GOSUB9S0: OP=1:CC=0 

RETURN 

IFPEEK (J+21) < >S2ANDJ+21< >ATHENH=—-23 

IFPEEK (J-23) < >Z2ANDJ-23< >ATHENH=21 
IFI=ATHEN730 
IFJ=77280RJ=77500RJ=7772THENPOKEJ „32: J=7744 
RETURN 

IFK=ATHEN790 

IFPEEK (K+22) < >32THENL=33 

IFPEEK (K) < >32THENK=7841:1L=31 

RETURN 
ONVVGOSUB312,313,314,315,315,315,315, 315 
RETURN 

ZT=270:RETURN 

ZT=240: RETURN 

ZT=210:RETURN 

ZT=180:RETURN 

U=INT(S#RND(1)+1):P=1 

IFU=1THENW1=7879 

TFU=STHENW1=7963 

IFUS-2THENR=A+11 

RETURN 

POKER,32:R=R-1:P=P+1: IFR=ATHEN790 

401 POKER,39:RETURN 

420 POKEWI „32: W1=W1+01:P=P+1:G0SUB 450: POKEW1,39 
: RETURN 

440 POKEWI ,32:W1=W1+02:P=P+1:G0SUB 450: POKEW1 ,39 
: RETURN 

450 IFWI=ATHEN790 

451 IFPEEK (W1+44) =4THEND1=-21:02=-23 

452 IFPEEK (W1-44) =4THENO1=23: 02=21 

455 RETURN 

790. PÜKEV-1,0:POKEA,7:POKEV, 200: FORT=15TOOSTEP-. 
1: POKEV+1,7:NEXT:FOKEV,O 

800 PRINT"{HOHE RVSON DOHN& RIGHTTIGAMELSPACEIOV 
ER" 
805 
900 
901 
9302 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
713 





FOKE198,0:WAIT19B,1:RUN 

FRINT"{CLEAR HHITESDDDDDDDDDDDDDDDDDDDDDD"; 
PRINT" DDMMKMOKKDMKODOKMMKKOM" 3 
FRINT"DOISPACE20>"3 

FRINT"BQISPACEZOFH"5 
FRINT"R{iSPACEFIHALSPACEISIUKLSPACESI"3 
FRINT" IJXSPACEIH{SPACEFXLLNNJIDDNNJDDLNLNN" 5 
PRINT"R{SPAGE3>YKMMDDDDDDDDOMMODD" 3 
FRINT"R{SPACET}3FOKKOOM#H{SPACESYTD" 3 
FRINT"P{SPACEZOFT"zS 
FRINT"DP{SPACETF&ENLLIJKLSPACESIS" 5 
PRINT"DDLNNLZ{SPACE3&DDDDDDDLZ {SPACE3YS"3 
FRINT"DDDDDDDJDDDDDDDDDD{SPACEYIHISPACEIN\N"3 
FRINT" DDKMMOODUMMDOMMDKE {SPACE3}IS" 35 
PRINT"DO{SPACES}"SPACE3ITSPACESITTSPACESIN 


Us . 


914 FRINT"OLSPACESI"TSPACEI*SPACEI"ISPACEI SPA 
CEI"TSPACEI*TSPACESIS"z 
915 PRINT" J{SPACE43*{SPACEITÄSPACEI"TSPACEI" SPA 
CEITISPACEITSPACESIU" 
716 FRINT"R{SPACESF"{SPACEII"SPACEII”SPACESYUD 


718 
7197 
920 
9721 
922 
9723 





























PRINT"R£SPACE3HTSPACE} XDNNNDLNLDNLNLILDD" 35 
PRINT" 3{SPACE33 YOMMKMOOKMOMKMMOMD" 5 
FRINT"R{SPACE213"; 
PRINT"P£{SPACE21}"; 
PRINT"DP{SPACE203"; 
PRINT" DDLLNNLNINNLINLNILINN" 3 
925 POKE8185,12 
940 RETURN 
950 PRINT" {CLEAR} "2 X=22: V=0: B$="DDDDDDDDDDDDDDDD 
DDDDDD" 
951 A$ (0) ="DKMOKMKMDEMMKOOKMOMMKO" 2 AS CU) ="ILNNIL 
LINLNNJLUNINLNIL" 
752 S$="(HOME HHITE DOHNT3" 
953 PRINT" {HOBE}":FORT=1107:PRINTB$3 2 NEXT=SFRINT" 
{DOHNT3":FORT=1T07=:FRINTB$S: NEXT 
954 FRINT"£HOHE RVSONFFUNKTE: "SC 
955 A=7909: 2Z=0 
956 RETURN 

ENDE DES LISTINGS 
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<163> 
<121> 
<203> 
<86> 
<2> 
<141> 


<22> 
<189> 
<172> 
<185> 
<96> 
<251> 
<192> 
<182> 
<4> 
<103> 
<137> 
<192> 
<48> 
<198> 
x82> 
<a8> 
<534> 
«86> 
«122> 
<203> 
<139> 
<137> 
*242> 
«151> 
<120> 


<218> 


<253> 
<127> 
<148> 
<232> 
<86> 


«67> 


<166> 
“24897 
<207> 
x181> 
<6> 
<42> 
<205> 
<86> 
xB6> 
«73 
<76> 
<47> 
<51> 
<71> 
x144> 


<221> 
<33> 
<118> 


<85> 
<106> 
<103> 
<126> 
<121> 
x22> 
<234> 
<18> 
«61> 


<110> 


<104> 
<243> 


<94> 
<192> 
<i1978> 
<77> 


—— ——— 


programme 


LI Mc Stoney 


Mc Stoney in the Caves 


Psssst: Kennen Sie ”Boulder 
Dash”? Und haben Sie eine tolle 
Version für den C16 bisher ver- 
mißt? Hier ist sie! 

Superschnell, saubere Grafik, 
eben alles, was man sich von ei- 
nem Profi-Programm wünschen 
kann, hat dieses Programm. 


Worum es geht? Ist doch glasklar! 


Sie sollen in den 20 Höhlen eine 
bestimmte Anzahl von Diaman- 
ten sammeln und dann die jeweili- 
ge Höhle durch den Herz- 
Ausgang verlassen. 

Auf Ihrem Spielfeld (also in der 
Höhle) befinden sich folgende Sa- 
chen und Typen: 

Blinkies: 

Läßt man einen Stein auf sie fal- 
len, so verwandeln sie sich in 
mehrere Diamanten. Eine Berüh- 
nung allerdings mit ihnen ist töd- 
ich. 


>ıcal 
>13 
>ıa11 


[ul= Bu Er) 


Zen 
= 


[u = 
»imz1 
31039 
D>im4i 
>1249 Gc 
>i1cS51 
>1053 
‚>insı 
>1caE9 
>ı1arı 
>ıar79 
>ımzı 
31233 
31031 
>1839 
>isal 
>1433 
>ıakı 
>13 
BRILT=E 
2142 
>18ca1 
>41acd9 
>10=1 
>icie3 
>ıarı 
>10f93 
>ı1@1 
>1109 
>ı111 
>11193 
>ı121 
>i1122 
>1121 
>1122 
>1141 
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208 


Glibbermasse: 

Sie verwandelt sich in Steine, 
wenn eine bestimmte Anzahl von 
Feldern eingenommen worden 
ist. 

Diamanten: 

müssen eingesammelt werden 
und bringen die Punkte. 

Steine: 

sollte man sich nicht auf den Kopf 
fallen lassen. 

Me Stoney: 

Er ist der Held unseres Spieles 
und muß die schwierigen Aufga- 
ben meistern. 

Zum Programm: 

Es besteht aus zwei Teilen: 

1. Teil: Basic-Programm, das nur 
die Erläuterungen enthält und für 
das Spiel unbedeutend ist. 

2. Teil: M-Code: belegt den Spei- 
cher von HEX 1001 bis HEX 
3GIE: 

Beude Teile sind einfach mit 
RUN zu starten. 


DOW Dmmm 
Dan mn 


a 


>121% 
21221 
>1223 
Y1E31 
>1232 18 
>1241 
>124? 
>irsı 


Eingabehinweise: 


Teil 1 eingeben und unter dem 
Namen ”Mc Stoney” abspei- 
chern. 


Teil 2 im Monitor-Modus einge- 
ben und mit 
S’GAME’”,8,1001,3C1E 
abspeichern( bei der Verwendung 
einer Datasette ist statt der 8 eine 
1 einzugeben!) - 


Das Spiel wird gesteuert mit ei- 
nem Joystick in Port 1 oder mit 
den Tasten F, X, (Punkt), (Dop- 
pelpunkt) und SHIFT. 


Am unteren Rand zeigt die Sta- 
tuszeileolgendes an: 


SC = Score 

HI = High-Score 

LI = Anzahl der verbleibenden 
Leben 

TI = Zeit 

DI = Diamanten (zu sammeln 
und bereits gesammelt) 

CA = Die Nummer der Höhle 


Man erhält für jeden eingesam- 
melten Diamanten 25 Punkte und 
außerdem noch die Restzeit des 
Levels. 
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programme | 


Gi a Mc 21342 
>i16T 3 z ad cd z >1321 
>16851 > ec Ed > »1323 
315323 - ec Ed > 21331 
>1631 ad nd >1332 
>18299 ed Ad >1241 
>1Eal : Ad ec = 21242 

ad ac 31251 

od Ad 

ad Bd >19E1 

Ad Ad >12623 

ar or 21371 

ur Br ; 

af af 

ar of ö >1323 

Fr oaf gr p 21321 
af af 2 >1333 
af af >1931 
ar uf 2 >1339 
er af >1961 

a7 af 2,962 
ar gif >19c1 

ar ar 31903 

af af >412al 
or De >19A2 
ar ar >i13el 
ar Gt >19e3 
er Be Be“ >ıaHi 
ar cr ; DA1PER 
ar af >iai 
ar of >12 
mr af 2 >1a1i 
ar ar } >1319 
af Gr >is2i1 
ar mar } >1223 
ar af } >1a31 
ar cr >132392 
a af . >1a41 
me af f >1=243 

Ing; >1351 

af 8 >12523 

gr af i >i1s61 

gr Gr ea 21263 

er of F >1aTi 

er A6 »1a79 

Ad Ad >1a21 
>irfel ac >138? 
>1re2 3 5 Ad Be 21231 
PErZE: Ge Bd >1392 
21779 ad Bd >isaaxi 
Pisa © = Gcd >iaa* 

ad Bd >iakil 

ad Ge >i13k3 
ad >laci 

gi 21303 
>1829 ad >iadı 
>1331 & de >i1acd? 
>1E29 de »i1sel 
>i1241 ? ad >tae3 
>1347 IL Be inf 
21351 : ac >iaf 
21259 ad 21691 
>13651 ad >1459 
>12689 Ge >ikil 
>ı871 ad >1k19 
312373 ad >ihzi 
31231 dd >1h23 
318393 Ge >1631 
>1331 af >1633 
21232 5 > Gi = >ik41 
>1Sa1l Qe 2 21449 
>isal >182F ad >1h51 
>16m3 € >16 5 er ar 8f >1453 
>ı1s411 5 >1263 ef >iksl 
21513 >iSci > ge >ihs? 
>ie2i c : >13c93 gr >ihr7i 
1629 4 1 - . : = >1Sd1 Di 2 >1kr79 
>1s31 >i18d? ai >ie21 
216533 £ >1Sei E er 9: >1k22 
YiE4l : >18e3 af >ih31 
>ind4n = J >aisfi R de >ik23 
>1551 S , 1293 ar >iksit 
y Ge gif >ih>a? 
de >ikhi 
or >i1kkı9 
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>ikel 
Yiko? 
>ikıtı 
>ikıc? 
>ikel 
>ikeH 
>ibfi 
>iht3 
>Ice1 
>1cc3 
>icil 
31019 
>iczi 
>1c23 
>i1c31 
>1c39 
>ic4il 
>1743 
154 
21059 
>icsi 
>1c63 
24071 
>17 
>icSi 
1083 
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>ileilil Of 
>1e13 ia 
>lezi a2 
Jle2a af 
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>ie33 ad 
>iedi 03 
>le43 ea 
J1e51 FF 
31e593 Fr 
>ilesi1 03 
>1=69 Zu 
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>zed3 1 
>zeel 
>2z2e2 
>Zefl 

zei? 
>afal 
>zra2 
Dos >2r11 
32669 >2f19 
>zcT1 d: 5 Jar21 
>EcT9 >2f29 2 ' 33149 
Jzcsil >af3ı \ >Zlel 
>2c89 >2f33 >31e3 
>2091 >af4i 
32027 r2649 
>Ecal >afsi1 
>20393 3253 
>zckil \ >2rfei & E 2211 
>Ech? [ P732-0] & 5a >2219 
>eccl ce & q i >zfril >2221 
>Ecc9 \ : yar7ı 5 . 22223 
Beige 2ar21 
>EcaI 22893 
Dackel .E >2r21 
>ace? i 2239 
y2cti \ >2fal 
D2ctI | i >afa9 9 
Jzami . i ) >erbl ; Ä . »32651 
2a S . ; >2fb3 > 2 >32659 
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>2419 E 3209. © & 3 >23279 
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In 16 Spiel müssen Sie alle 
grünen Würfel rot einfärben. Das 
ist nur zu schaffen, indem Sie die 
4 umhergeisternden Gespenster 
nicht berühren und auf alle Wür- 
fel mit Ihrem einzigen Männchen 
springen. Sind Sie mit einem Ge- 


anders: Bei Stufen mit einer unge- 
raden Zahl bleibt der besprunge- 
ne Würfel rot. Bei Stufen mit ge- 
raden Zahlen färbt sich der Wür- 
fel bei jedem Draufspringen 
wieder um (also mal rot und mal 

rün). Sind alle Würfel rot einge- 
Abe, so geht es weiter zur näch- 
sten Stufe. Zwischen jeder Stufe 
können Sie Ihren Punkstestand 


programme 


gefundene Würfel gibt Punkte. 
Haben Sie keinen gefunden, geht 
es trotzdem zur nächsten Stufe. 
Wenn Sie alle 20 Stufen geschafft 
haben, so haben Sie das Spiel ge- 
wonnen. 

Dieses Programm hat eine sehr 
gute Multicolor-Grafik, zahlrei- 
che verschiedene Spielfelder und 
eine schnelle Spielgeschwindig- 
keit. 

Eingabehinweise: 

Das Programm besteht aus 3 Tei- 


len, die nacheinander abgetippt 
und abgespeichert werden müs- 
sen. Anschließend müssen Sie 
Teil 1 laden und starten. Die an- 
deren beiden Teile lädt das Pro- 
gramm selbst nach (Funktioniert 
nur mit Datasette)!!!!!! 

Aber jetzt wünsche ich Ihnen viel 
Erfolg beim Abtippen und viel 
Spaß beim Spielen. 

Wichtig: Datasette erst dann 
stoppen, wenn der letzte Teil ein- 
Pe wurde!!! 





nn; 





aufbessern, indem Sie innerhalb 
von 10 Sekunden die rot einfärb- 
baren Würfel herausfinden. Jeder 


spenst zusammengeraten, so ist 
das Spiel beendet. Das Umfärben 
der Würfel ist von Stufe zu Stufe 





CUBE 











C-16 LISTINGB + CHECKSUMMEN (0C V1.0) 580 DATASC,66,6E,76,66,66,3C,00, 654 <202> 
590 DATA18,18,38,18,18,18,7E,00, 302 <255> 
10 SCNELR: FOKESS, 255: POKES6,55: CLR <147> | 600 DATASC,65,06,0C,30,60,7E,00, 450 <92> 
20 REM EREIEIEIIEIIIEEEEEEEEEE <213> | 610 DATASC,66,06,10,06,66,3C,00, 364 <a> 
30 REM#r*#* CUBE [6 8) “.* <229> | 620 DATAO6,0E,1E,66,7F,06,06,00, 291 «201> 
40 REMk#*#* BY  GUENTER DREES “%* <190> | 630 DATA7E,40,7C,06,06,66,3C,00, 520 <96> 
SO REMx*#« CANISIUSSTR.18 x* <80> | 640 DATASC,66,60,70,66,66,3C,00, 646 <2> 
60 REM### x. <57> | 650 DATATE,66,00,18,18,18,18,00, 336 <254> 
70 REMR#x 4440 RHEINE we. <a0> | 660 DATASC,66,66,30,66,56,30,00, 588 <170> 
BO REMRARREUEUN EEE <17> 670 DATASC. 66,66, 3E,06,66,30,00, 494 <9> 
90 FRINT"{DAHNT RIGHTSIDATAS{SPACE}WERDEN{SPACE} 680 DATAO0,00,18,00,00,19,00,00, 48 <62> 
EINGELESEN" <204> | 6790 DATA00,00,18,00,00,18,18,30, 120 <153> 
100 DATAST ,66,6E,6E,60,62,3C0,00, 676 <241> | 700 DATAO0,00,00,00,02,02,02,02, 8 <125> 
110 DATA18,30,66,7E,656,66,66,00, 618 <104> | 710 DATAAA,AA,AAN,AA,AA,AA,AA,AA, 1360 <190> 
120 DATA7C,66,66,70,66,66,7C,00, 780 <100> | 720 DATAOA,OA,OA,OA,ZA,2N,ZA,2A, 208 <73> 
130 DATASC,66,60,60,60,66,3C,00, 612 <248> | 730 DATAAA,NA,AA,AF,AF,A9I,AF,AS, 1351 <163> 
140 DATA78,60,66,66,66,6C,78,00, 762 <3> 740 DATAAS,AS,AS5,94,94,94,94,50, 1167 “163> 
150 DATA7TE,60,60,78,60,60,7E,00, 756 <101> | 750 DATAS50,50,50,40,40,40,40,00, 496 <217> 
160 DATATE,69,60,78,60,60,60,00, 726 <B1> | 740 DATAFF,FF,FF,FF,FF,FF,FF,FF, 2040 <145> 
"170 DATASC,66,60,6E,66,66,3C,00, 632 <172> | 770 DATA00,00,00,00,00,00,00,00, © <B8> 
180 DATA66, EEG, 7E,66,66,66,00, 738 <195> | 7R0 DATAO0,00,00,00,00,00,00,00, 0 <98> 
190 DATASC,18,18,18,18,18,3C.00, 240 <34> 770 DATA00,00.00,00,00,00,00,00, © <108> 
200: DATAIE,OC,OT,OC,0OC,&C,58,00, 242 <66> | 800 DATAO00,00,00,00,00,00,00,20, O <118> 
210 DATA66,6C,78,70,78,60,66,00, 772 x39> | 810 DATA00,00,00,00,00,00,00,00, © <128> 
220 DATA60,50,60,60,60,60,7E,00, 702 <8> 820 DATA00,00,00,00,00,00,00,00, O0 <138> 
230 DATA&3,77,7F,6B,63,63,63,00, 749 <245> | 870 DATAO0,00,00,00,00,00,00,00, 0 <148> 
240 DATA65,76,7E,7E,6E,66,66,00, 786 <195> | 840 DATA00,009,00,00,00,00,00,00, 0 <158> 
250 DATA1S,15,15,15,15,16,02,02, 131 <4> 850 DATA00,60,00,00,00,00,00,00, © <168B> 
260 DATA9S,95,95,95,95,96,AA,AA, 1235 <115> | 840 DATAOG,00,00,00,00,00,00,00, 0 <178> 
270 DATASC,66,66,66,66,3C,0E,00, 542 <57> 870 DATA00,00,00,00,00,00,00,00, © <188> 
280 DN1A95,95,95,95,95,95,19,A5, 1228 «232> | BRO DATAO0,00,00,00,00,00,00,00, DO <198> 
270 DATAS4,54,54,54,06,06,02,02, 352 <237> | 870 DATAO0,00,00,00,00,00,00,00, O <208> 
300 DATAS6,56,56,56,N6,A6,AA,AA, 1016 <7> 900 DATAFF,FFSFE ,FFSEF,FRE,FF,FF, 2040 <30> 
310 DATA66,66,66,66,66,66,3C,00, 672 <b> 910 DATAO1,05,05,15,19,19,19,1D, 136 2236> 
320 DATA56,56,56,55,45,A5,A9,AS, 1007 <39> | 920 DATAFF,FF,FEF,FF,FF,FF,FF,FF, 2040 <50> 
320 DATA15,15,15,15,12,12,02,02, 124 <25> | 930 DATA40,50,50,54,64,64,64,74, 724 <95> 
>40 DATA95,95,95,95, 9A, 9A,AN,AA, 1244 <60> | 940 DATAFF,FF,FF,FF,FF,FF,FF,FF, 2040 <70> 
50 DATA66,66,66,3C,18,18,18,00, 438 <73> 950. DATAFF,FF,FF,FF,FF,FF,FF,FF, 2040 <80> 
360 DATA95,95,95,95,99,99,A7,A5, 1236 <158> | 760 DATAFF,FF,FF,FF,FF,FF,FF,FF, 2040 <90> 
370 DATA54,54,54,54,56,16,02,02,. 448 <59> | 770 DATAFF,FF,FF,FF,FF,FF,FF,FF, 2040 <100> 
380 DATNS56,56,56,56,56,9&,AA,AA, 9720 <243> | 980 DATAFF „00,FF,FF,FF,FF,FF,FF, 1785 <32> 
370 DATASC,OC,OC,OC,OC,OC,SC,00, 180 <154> | 970 DATAO1,05,05,15,1D,19,19,19, 136 <217> 
490 DATAS6,56,56,55,55,95,A9,A5, 91 <19> | 1000 DATAFF,FF,FF,FF,FF,FF,FF,FF, 2040 <130> 
410 DATA00,10,30,7F,7F,30,10,00, 382 <1> 1010 DATA40,50,50,54,74,64,64,64, 724 <166> 
420 DATA00,00,00,00,00,00,00,00, 0 <248> | 1020 DATA90,00,01,05,15,15,55,55, 218 <146> 
430 DATAO3,OF,3C,F0,F0,3C,0F,03, 636 £ <252> | 1050 DATA00,00,40,50,54,54,55,55, 482 <835> 
440 DATACO,FO,3C,OF,OF,SC,F3,C3, 1020 <6B> 1040.DATASS,55,95, 95, AD,AE,AE,AE, 11653 <o> 
450 DATAO3,OF,SC,F0,FO,3C,CF,C3, 1020 <110> | 1050 DATASS,55,56,56,7A,BA,BA,BA, 1022 <178> 
450 DATACO,FO,SC,OF,OF,SC,F0,CO, 1014 <41> 1060 DATAAE ‚EE,BE,AA,AA,AA,AA,AA, 1452 x187> 
470 DATAC3,CF,SC,F0,F0,3C,0F,03, 1020 <214> | 1070 DATABA,BB,BE,AA,AA,AA,AA,AA, 1413 <71> 
480 DATAEZ,F3,3C,0F ,OF,SC,FO,CO, 1020 <o> 1080 DATAO0,00,01,05,15,11,5D,51, 218 <9B> 
470 DATA06,0C,18,00,00,00,00,00, 42 <192> | 1090 DATA00,00,40,50,54,44,75,45, 482 <143> 
500 DATAOC,18,30,30,30,18,0C,00, 216 <144> | 1100 DATASS,5D,97,95,AD,AE,AE,AE, 1173 <196> 
510 DATASO,18,0C,0C,0C,18,30,00, 180 <88> 1110 DATASS,75,D6,56,7A,BA,BA,BA, 1182 <51> 
520 DATAO0,66,SC,FF „3C,66,00,00, 577 <o> 1120 DATAAE „AE,BE,EA,AA,AA,AA,AA, 1452 <15> 
SSO DATA00,18,18,7E,18,18,00,00, 222 <78> | 1130 DATABA,BA,BE,AB,AA,AA,AA,AA, 1413 <137> 
540 DATA00,00,00,0C0,00,18,18,30, 96 <175> | 1140 DATA00,00,01,05,15,15,15,15, 90 <218> 
550 BATA00,00,00,7E,00,00,00,00, 126 <12> 1150 DA1AO00,00,40,50,54,50,5C,50, 480 <249> 
5850 DATA00,00,00,00,00,18,18,00, 48 <50> 1160. DATA9S,95,95,A5,AB,AB,AB,AB, 1296 <215> 
570 DATA00,03,06,00,18,30,60,00, 187 <42> 1170 DATAD6, 7E,56,5A,6A,6A,6A,&6A, 940  - <181> 


Somputbe mik. 


18 


Programme 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1280 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
13640 
1370 
1380 


DATAAB,AB,AB,AR,AA,AA,AA,AA, 
DATA6GA ,„5A,EA,AA,AA,AA,AA,AA, 
DATNOO,00,01,05,15,05,35,05, 
DATA00,00,40,50,54,54,54,54, 
DATA97 „ED, 95,A5,A9,A9,A9,A9, 
DATAS6,56,56,5A,EA,EA,EA,EA, 
DATAAF,AS,AB,AA,AR,AA,AA,AA, 
DATA15,15,15,15,15,14,00,00, 
DATAEA ,EA,EA,AA,AA,AA,AA,AA, 
DATAFF,FF,FF,FF,FF,FF,FF,FF, 
DATAFF,FF,FF,FF,FF,FF,FF,FF, 
DATAS4,54,54,54,04,04,00,00, 
DATAFF „00, FF ,FF,FF,FF,FF,FF, 
DATAFF,FF,FF,FF,FF,FF,FF,FF, 
DATAFF,FF,FF,FF,FF,FF,FF,FF, 
DATA15,15,15,15,10,10,00,00, 
DATAFF ,FF,FF,FF,FF,FF,FF,FF, 
DATAFF ,FF,FF,FF,FF,FF,FF,FF, 
DATAFF ,FF,FF,FF,FF,FF,FF,FF, 
DATAS4,54,54,54,54,14,00,00, 


1363 
1280 
90 
480 
1330 
1284 
1355 
125 
1552 
2040 
2040 
544 
1785 
20409 
2040 
116 
2040 
2040 
2040 
440 


FORT= 14336 TO 15352 STEPB:P=0 


1390 FORI=0T07:READA$=:A=DEC (A$) sP=P+A:POKET+I „As 
NEXTI 


1400 READR: IFF@ >RTHENPRINT"PRUEFSUMMENFEHLER{SPA 


CEYIN{SPACEIZEILE"PEER. (63) +PEEK (64) #256: END 


1410 
1420 


NEXT 
SCNELR 


1430 PRINT" CLEARYLOAD" 
1440 PRINT" (DOWNSFRUN" 


1450 PRINT" {HOHE}"3:POKE1319,19: POKE1320, 13: POKE 
1321, 


13: FOKE239,3 


ENDE DES LISTINGS 


C-16 LISTING + CHECKSUMMEN- (OC V1.0) 


10 REM 


20 REM### 
350 REM##* BY 


CUBE (2) 
GUENTER DREES 


40 REM#*r 


50 REM### 


CANISIUSSTR. 18 


60 REM##%* 


70 REM###+ 


4440 RHEINE 


80 REMA#** 
90 REMERRRBRHRRIRRRIHITIH IHNEN EEE 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


DATAAC,40,03,AD,41,03,99,47, 
DATAOF ,AD,42,03,79,48,0F ‚AD, 
DATA43,03,99,6F,OF,AD,44,03, 
DATA99,70,0F,C8,C0,28,D0,02, 
DATANO,01,80,40,03,B7,47,0F, 
DATABD,41,03,B9,48,0F,8D,42, 
DATAOS,R?,6F,0F,8D,43,03,B9, 
DATA7O,OF,BD,44,03,AD,45,03, 
DATA99,47,0F,C0,00,69,01,99, 
DATA48,0F ,6D,43,03,99,6F,OF, 
DATAED,43,03,60,44,03,69,04, 
DATA99,70,0F,AC,46,03,AD,47, 
DATAO3,99,7F,0E,AD,48,03,99, 
DATABO,OE ,AD,49,03,99,A7,0E, 
DATAAD,4A,03,99,A8,0E,C8,C0, 
DATA28,D0,02,A0,01,8C,46,03, 
DATABF,7F,OE,80,47,03,B9,80, 
DATAOE ‚,8D,48,03,B9,A7,0E,8D, 
DATA49,03,B9,A8,0E,8D,4A,03, 
DATAAD,4AB,03,99,7F,0E,C0,00, 
DATA69,01,99,80,0E,60,49,03, 
DATA99 ,A7,0E,ED,49,03,&6D,4A, 
DATAO3,69,04,99,AB,0E,AC,AC, 
DATAO3,AD,4D,03,99,B7,0D,AD, 
DATA4E,03,99,B8,0D,AD,4AF,03, 
DATA99,DF „OD,AD,50,03,99,E0, 
DATACD,CB,C0,28,D0,02,A0,01, 
DATABC,4C,03,B9,B7,0D,8D,4D, 
DATAO3,B?,B8,0D,8D,4E,03,B9, 
DATADF,OD,8D,4F,03,B9,E0,0D, 
DATASD,50,03,AD,45,03,99,B7, 
DATAOD,CO,00,69,01,997,B8,0D, 
DATA&D,AF,03,99,DF,OD,ED,4F, 
DATAO3,6D,50,03,69,04,99,E0, 
DATAOD,AC,51,03,AD,52,03,99, 
DATAEF „OC,AD,53,03,79,F0,0C, 
DATAAD,54,03,99,17,0D,AD,55, 
DATAO3,99,18,0D,C8,C0,28,DO, 


“*% 
**%# 
“er 
*r% 
“rt 
“irrt 
“er 


704 
670 
593 
922 
639 
688 
710 
584 
690 
545 
596 
769 
69789 
725 
977 
624 
854 
737 
661 
737 
586 
830 
695 
778 
686 
1022 
81& 
818 
792 
881 
805 
661 
876 
681 
680 
915 
707 
833 


<255> 
<139> 
<22> 

<162> 
<167> 
<131> 
<240> 
<199> 
<118> 
<145> 
<156> 
<90> 

<98> 

<186> 
<196> 
<134> 
<216> 
<226> 
<236> 
<171> 
<B4> 


<227> 


<95> 
<9> 
<121> 
<94> 
<58> 


<240> 


<203> 
<229> 
<180> 
<37> 
<80> 
<537> 
<40> 
<77> 
<27> 
<84> 
<221> 
<169> 
<64> 
<75> 
<76> 
<118> 
<176> 
<172> 
<113> 
<160> 
<66> 
<40> 
<170> 
<121> 
<47> 
<14> 
<91> 
<111> 
<251> 


- <78> 


<64> 
<54> 
<207> 
<71> 
<66> 
<32> 
<74> 
<113> 
<125> 
<43> 
<27> 
<251> 
<68> 
<161> 
<84> 
<37> 
<252> 


480 DATAO2,A0,01,8C,51,03,B9,EF, 811 
490 DATAOC,8D,52,03,B9,F0,0C,8D, 816 
500 DATAS3,03,B7,17,0D,8D,54,03, 535 
510 DATABF,18,00,30,55,03,AD,4B, 697 
520 DATAO3,99,EF,0C,C0,00,69,01, 705 
530 DATA9F,FO,OC,EA,EA,6D,54,03, 1069 
540 DATA99,17,0D,ED,54,03,6D,55, 707 
550 DATAO3,69,04,99,18,0D,60,00, 398 
560 DATA30,00,00,00,00,00,00,00, 48 
570 DATA00,00,00,00,00,00,00,00, © 
580 FORT= 15616 TO 15992 STEPB:P=0 
590 FORI=0T07:READA$:A=DEC (A$) :P=P+A: POKET+I,A:N 
EXTI 
600 READR: IFP< >RTHENFRINT "PRUEFSUMMENFEHLER{SPAC 
E} INTSPACE}ZEILE"PEEK (63) +PEEK (64) «256: END 
610 NEXT 
620 PRINT" CLEAR}LOAD" 
630 PRINT" {DOHNS}RUN" sPOKE1319,19:POKE1320,13:PO 
KE1321,1S:POKE239,3 
ENDE DES LISTINGS 











C-1& LISTING + CHECKSUMMEN (DOC V1.0) 


10- REMIS IIHII ARTE AEAHIEIE ICE 


20 REM##*# CUBE (3) HAUPTTEIL “er 
30 REM### BY GUENTER DREES “rr 
40 REM#*# Rrr 
50 REM### CANISIUSSTR. 18 “er 
60 REM##% #8 
79 REM###* 4440 RHEINE =.* 
80 REMx#x 2 22 


90 REMIS 

100 POKESS, 255: POKES6,55:CLR 

110 SCNELR 

120 POKE1282,61:POKE1281,0 

130 PRINTCHR$ (8) :PRINTCHR$ (142) 

140 X=USR(.)2X=USR(-)E2X=USR(.) 

150 POKE65287 ‚PEEK (65287) 0R1& 

160 SCNCLR: POKE65298, 192: POKE65299,56 

170 VOL8:COLORO,1:CDLOR4,2,1 

180 PRINT"{DOHN3 RIGHT1O BRNI<==?ISPACEI<==?ISPA 

CEIX==?ISPACEI<==?" 

190 PRINT" {RIGHT10I>==(S* SPACE} >== 
1S* SPACE} >=={Sx*}" 

200 PRINT"{RIGHTIO SB3 SA SPACE SB3 SA SPACE SB3 
SA SPACE SB3 SA}" 

210 FRINT"{YL.GRNY" 

220 FRINT"{SPACE13 SB3 SPACE SB SPACE SB SPACE S 


= SPACE2 SB3}" ' 


{S* SPACEI>== 


B2 SPACE2 SB2 SPACE}Y" 
260 PRINT"ISPACE13 SB SPACE3 SB SPACE SB SPACE S 





2 SB3 BRN>" 

290 PRINT 

300 PRINT" {RIGHT103<==?{SPACEI<==PISPACEI<==?ISP 
ACEI<==?" 

310 PRINT" {RIGHT103 >== 
(S# SPACE} >==1SK}" 

320 PRINT"{RIGHTIO SB3 SA SPACE SB3 SA SPACE SB3 
SA SPACE SB3 SA>" 

330 FRINT"{DOHN3 YELLOW RIGHT12} (C) ESPACEI19B6{S 
PACE>BY{SPACE)G.D. 

340 W$="<==?{DOHN LEFT43 >== 
Ed 

350 CHAR1,5,12,"{BRN}"+W$:CHAR1,30,12,W$ 

360 CHAR1,5,7,"{BRN3"+W$:CHAR1,30,7,W$ 

370 IFJOY(1)<>12BTHEN370 

380 SCNCLR:GOSUB1110 

390 POKE65287 ‚PEEK (65287) 0R16 

400 W$="<==7{DOHN LEFT4}>=={S* DOHN LEFT4 SB3 SA 
yu 

410 M$(1)="ID.BLUE C- S- DOHN LEFT23{C« DOHN LE 
ET2 SHIFTSPACE CK}":G(1)=DEC("340") 

420 M$(2)="{D.BLUE CI CT DOWN LEFT2 C@ CG DOWN L 


EFT2 C+# CH}":2G(2)=DEC("346") 





(S* SPACEI>==1S* SPACEI>== 














iS* DOHN LEFT4 SB3 SA 








Compute mib 


<206> 
<120> 
<120> 
<104> 
<a> 

<218> 
<225> 
<162> 
<219> 
<143> 
<182> 


<192> 


<50> 
<230> 
<49> 


<117> 


<203> 
<105> 
<180> 
<37> 
<80> 
<57> 
<40> 
<77> 
<27> 
<175> 
<86> 
<104> 
<140> 
<165> 
<23> 
<8> 
<171> 


<180>, 


<230> 


<6> 
<249> 


<129> 
<177> 
<187> 
<125> 
<208> 
<218> 


<53> 
<189> 


<835> 
<95 
<127> 
<80> 
<97> 
<109> 
<142> 


<36> 
<175> 


x8> 


<157> 
<139> 


<180> 
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\ 


rn 


pers 


Fey 


4m 


3 


430 M${3)="{D.BLUE BLUE ci Si DOHN LEFT2 CN Ca DOHN L 


EFT2 ER CH} "26(4)=DEC ("351") 








450 POKE65298, 192: POKE65299 ,56 

460 L$="{BRN SPACE2 DOUN LEFT2}=={DOUWN LEFTZI==" 
470 E$t1)="!"+CHR$(34) 

480 E$(2)="4$" 

490 E$(Z)="7$" 

500 E$(4)=" 1%": IFP<>OTHENDIMP (4,8) 

510 LS$="({BRN SPACE2}Y" 

520 LE=1 

530 M1=5:M2=21:M=2: FORL=832T0870: POKEL „32: NEXT 


540 PRINT" {BRN}"2SCNELR 

550 T=0:0NINT ((LE-1) /2)+1G05UB1010,1020,1030,104 
0,1050,1060,1070,1080,1090,1100 
560 IFLE>ZOTHEN2480 

570 FORL=1T04:FORI=1T08 

580 READP (L,IDNEXTI,L 

590 REM #ra* BILD 

600 FORL=1T04:FORI=1T08 

&10 IFP{L,ID)=1THENGOSUB1130 
620 NEXT=:NEXT=:READPS 

&30 FORL=1T04:REM GEISTERFOSITIONEN 

640 READA:POKEG(L) „AzNEXT 

650 GOSUB1110: IFA< >OAND127THENGOSUB1140:ELSEGOSU 
B2030 

660 IFT=PSTHEN1170 

870 X=USR(.) 

&80 CHAR1 ,M1,M2,M$(M) : IFPEEK (3072+40#*M2+M1-1) >80 
THENBFO 

690 A=J0Y (1) 2ONAAND127G0OT0710,720,730,740,750,7&6 
0,770,780 

700 GOTO650 

710 M=1:G60T0790 

720 M=1:60T0790 

730 M=3:60T10790 

740 M=2:6010790 

750 M=2:60T0790 

760 M=2:60T0790 

770- M=4: 6010790 

780 M=1:60T0790 

770 ONMGOTOB00,820,850,870 

800 IFPEEK (3072+40# (M2-4) +M1) =41 THENI2O: ELSEIFPE 
EK (3072+40% (M2-4) +M1) =32THEN650 

810 G0T0890 

820 IFM2+6>23THENS50 

830 IFPEEK (3072+40* (M2+6) +M1)=61THENF2O:ELSEIFPE 
EK (3072+40# (M2+6) +M1) =32THENG50 

840 GOT0890 

850° IFFEEK (3072+40*M2+M1+44) =61 THENI2O: ELSEIFPEE 
K(3072+40%M2+M1+44) =32THENGSO 

860 GOTOBFO 

870 IFPEEK (3072+40*M2+M1 +36) =6141 THENI20:ELSEIFPEE 
K(3072+40#M2+M1+36) =32THEN&50 

880 GOTO890 

890 FORL=8TOOSTEP-.7:VOLL:COLOR1,2,5 

900 CHAR1 „Mi ,M2-1,E$ (INT (RND (0) #4+1)) :SOUND1,880 
+10%*L,5 

710 SOUND1,345,5:NEXT: SCNELR: GOTO2080 

920 CHAR1,M1,M2,L$ 

930 ONMGOTO940,950,760,970 

940 M2=M2-5:G0OT0980 

950 M2=M2+5:G0T0980 

960 M1=M1+4:60T0980 

970 M1=M1-4:G0T0980 

980 SOUNDI ,345,2:SO0UND1,880,5:GOT0650 

990 T=T-1:CHAR,Mi1-1,M2+3,"{L.GRN SB3}" 

1000 RETURN 

1010 RESTORE1780: RETURN . 

1020 RESTORE1830: RETURN 

1030 RESTORE18B0: RETURN 

1040 RESTORE1930:RETURN 

1050 RESTORE1980: RETURN 

1060 RESTORE2230: RETURN 

1070 RESTORE2280: RETURN 

1080 RESTORE2S330: RETURN 

1090 RESTORE2380: RETURN 

1100 RESTORE2430:RETURN 

1110 IFPEEK (837) =81THENPOKE837 „89: POKEB43,81:ELS 
EFOHEBST „81:POKESB43,89 

1120 RETURN 

1130 CHAR1,1#4,2+1L%5,"{L-GRN}"+W$: RETURN 

1140 IFPEEI (2048+40% (M2+3) +M1) =SOTHENIFINT (LE/2) 
=LE/2THENFFO 

1150 IFPEEK (2048+40% (M2+3) +M1) =95THENCHAR1 ,M1-1, 


KRRR 





<146> 


<165> 
<7> 
<25> 
<168> 
<69> 
<99> 
<29> 
<95> 
<186> 
<122> 
<212> 


<139> 
<55> 
<97> 
<118> 
<b> 
<127> 
<41> 
<154> 
<228> 
<240> 


<122> 
«86> 
«253> 


<1B5> 


<154>' 


<18> 
<250> 
<4> 
<20> 
<27> 
<37> 
<47> 
<64> 
<65> 


<85> 


<119> 
<145> 
<70> 


<213> 
<175> 


<124> 
«195> 


<213> 


<215> 
<214> 


<187> 
<a5> 

<77> 

<69> 

<156> 
<160> 
<156> 
<172> 
<15> 

<167> 
<121> 
<150> 
<143> 
<174> 
<167> 
<177> 
<168> 
<198> 
<191> 
<221> 
<214> 


<113> 
<242> 
<17> 


<67> 


programme 


2+3,"{RED SB3}"=2T=T+1:SC=SC+10:S0UND3,1020,5 
1160 RETURN 

1170 RESTORE1180:FORL=1T011:READA,B:SDUND1,1022, 
2: SOUNDI „A,B:NEXT 

1180 DATAB10,10,810,5,810,5,834,5,810,5,834,5 
1170 DATAB54,5,8B1 ,10,881,5,881,5,881,15 

1200 PRINT" {BRN3":SCNELR 

1210 M1=5:M2=21:M=2 

1220 FORI=1T08: FORL=1T04: G0OSUB1130:P(LyI)=0:NEXT 
:NEXT:PS=0:T=0 

1230 FORL=1T08:FORI=1T04 

1240 D=INT(RND(1)#4+1) 

1250 IFD=4THENP (T,L)=1:PS=PS+1 

1260 NEXT=:NEXT: TI$="000000" 

1270 CHAR1 ,M1,M2,M$(M) :BOSUB2030 

1280 IFVAL(TI$) >IOTHEN1570 


1290 PRINT" {HONE DOHN4 RIGHT173"310-VAL(TISI"{LE 


"ET SPACE}" 





1300 A=JOY (1) :ONAGOTO1320,1330,1340,1350, 1360,13 
70,1380,1390 

1310 G0T01270 

1320 M=1:G60T01400 

1330 M=1:60T01400 

1340 M=3:G0T01400 

1350 M=2:60T01400 

1360 M=2:60T01400 

1370 M=2:G0T01400 

1380 M=4:G0T01400 

1390 M=1:60T01400 

1400 ONMGOTO1410,1430,1450,1470 

1410 IFFEEK (3072+40#* (M2-4) +M1)=61THEN1490 

1420 GOT01270 

1430 IFFEEK (3072+40#* (M2+6) +M1)=&1THEN1490 

1440 GOT01270 

1450 IFPEEK (3072+40#M2+444+M1)=61THEN1490 

1460 GOT01270 

1470 IFPEEK (3072440#M2+36+M1)=61 THEN1490 

1480 60101270 

1490 CHAR1,M1,M2,L$:0NMGOTO1500,1510,1520,1530 
1500 M2=M2-5: 60101540 

1510 M2=M2+5:60101540 

1520 Mi1=M1+4:G0T01540 

1530 M1=M1--4:60101540 

1540 SDUND1 ,345,2: SOUND „880,5: J=INT (M2/5) :K=INT 
(M1/4) 


1550 IFP(J,K)=1THENT=T+1: SOUNDS, 1020,5:P(J,K)=0: 


CHAR1,M1-1,M2+3,"{RED SB3}":50=SC+10 
1560 IFT<PSTHEN1270 
1570 REM 

1580 SCNELR 

1590 PRINT"CYELLOH SB3 
E. SB3 SPACE3 SB3 SPACE SB3}" 
1600 PRINT"(SB3 SPACE2 
SPACE SB3 SPACES SB3}" 
1610 PRINT"{SB3 SPACE SB5 SPACE SB6 SPACE6 SBS S 
PACES SB3}" 

16820 PRINT"{SB9 SPACE SB6 SPACES SB3 SPACE SB3 $ 
PACES SB3}" 

1630 PRINT"{SBS SPACE SB3 SPACE SB3 SPACE7 SB3 $ 


PACE3 SB3 SPACE4 SB3}" 


1640 PRINT"{SB4 SPACE2 SB3 SPACE SB9P SPACE SB3 S 


PACE3 SB3 SPACE4 SB33" 
16850 FRINT:PRINT:FRINT 





























1660 FRINT"{BRN SPACE3I==={SPACE4}== 
={SPACE2Y==(SPACE} 

1670 PRINT" {SPACE3} LSPACES)===SPACE4Y= ={SPAC 
E23=={SPACEI==={SPACE4}===" 

1680 PRINT" {SPACE3}==={SPACESI==={SPACE4I=={SPAC 
E23=={SPACEI==={SPACE4I===" 

1690 PRINT" {SPACE3}==={SPACE4}====={SPACEZI=={SP 


ATE2I==1SPACE}I===== 
1700 DE ACES>ALSPACESI E====tSPACEZI==ISR 
ACE2}== == 

1710 PRINT" (SPACE3}==={SPACE4I===SPACE4I== 
E23=={SPACE}===1SPACE4} E 

1720 PRINT" (SPACE3}Y=== {SPACEI===TSPACESI=TSPA 
en ee ===='" 














{SPAC 

















SPACE2I== 





1740 FORL: FORL=1T010: POKE65286, 11:SQUND1 880,5: POKE65 


286,27:SOUND1 „345,5: NEXT 

1759 LE=LE+1 

1760 SCNELR: X=USR(.) 2 X=USRC.)EX=USRE.) 
1770 GDT0530 

1780 DATA1,1,0,1,0,0,0,1 

1790 DATA1,0,1,1,1,1,1,1 


CSompube mib 


<14> 
<26> 


<186> 
<215> 
<100> 
<106> 
<193> 


<o> 
<219> 
<60> 
<114> 
<156> 
<4a6> 
<997> 


<38> 


<71> 
<112> 
<200> 
<210> 
<22&6> 
<233> 
<243> 
<253> 
<13> 
<14> 
<247> 
<104> 
<222> 
<141> 
<242> 
<2356> 
<6> 
<17> 
<26> 
<185> 
<253> 
<1> 
<253> 
<135> 


<59> 
<226> 
<233> 
<183> 
<26> 
<105> 
<139> 
<51> 
<31> 
<211> 


<173> 
<535> 


<214> 
<241> 
<251> 
<171> 
<181> 
<25> 
<o> 
<115> 
<240> 
<164> 
<195> 
<60> 


<239> 
<31> 
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1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
19730 
1940 
1950 
1960 
1970 
19780 
1990 
2000 
2010 
2020 
2030 
Z0AO 












=S5C 

2050 
2060 
2070 
Z080 









2100 
ACE} 
2110 
I==£ 
2 










36 






A 
Ya 


150 


UNI Nm MN“ N| 
| 


Bol mın ll 








2090 


Programme 




















DATA1,1,1,0,1,0,1,1 <26> 
DATA1,0,1,0,1,1,1,1 <44> 
DATA23,9,3,10,15 <183> 
DATA1,1,1,0,1,1,1,0 <52> 
DATAL,0,1.1.1,0.1.1 <70> 
DATA1,1,1,0,1,1,1,0 <72> 
DATAL,O,1,1,1,0,1,1 <90> 
DATA24,11.19,9,2 <37> 
DATA1,0,1,0,1,1,1,0 <98> 
DATA1,1.1.0.0,0,1.1 <106> 
DATAO,1,0,1, 0,1151 <128> 
DATA1,1,1,1,1,1,0,0 <126> 
DATA21,36,.4,22,0 (2493 
DATA1,0,1,1,1,0,1,0 <144> 
DATAL,0,1,0,1,0,1,0 <146> 
DATA1,0,1,0,1,1,1,0 <168> 
DATA1,1,1,1,0,0,1,1 <184> 
DATA20,25,9,19,25 <125> 
DATA1,0,1,0,1,0,1,0 <186> 
DATA1,0,1,0,1,0,1,0 <196> 
DATA1,0,1,0,1,0,1,0 <206> 
DATAL I yipiyiypiyiyt <0> 
DATN20,37.19,35,39 <218> 
PRINT" HOME RIGHT14 YELLOH RIGHTI"SC <46> 
PRINT" HOME BLUEIHI: (HHITE}" 3: IFHI<SCTHENHI 

<64> 
PRINTHI <ia> 
PRINT"{HOHME RIGHT23 BLUEYLE: (HHITE}"LE <27> 
RETURN <172> 
REM *«  SPIELENDE * <«224> 
FORL=0T040: FRINT:NEXT «232> 
PRINT" {SPACES}= ==1SPACEI=={SPACEZI=={SP 
za===" 5 < 106> 
PRINT" £{SPACEFI==={SPACESI=={SPACE3I== {SPACE 
SPACE2Y===" <76> 
FRINT" (SPACEII===(SPACESI===={SPACEI==TSPAC 
={SPACEZI==" <207> 
PRINT" {SPACEII====={SPACEII==TSPACE}===={SP 

ACEY==LSPACEII==" er <150> 
PRINT" (SPACE2}3==={SPACESI==ISPACE2I==={SPAC 
{SPACE <130> 
FRINT XSPACESI=={SPACEII=={SPACE 

<116> 
======={SPACEI=={SPACEZI=={SP 

«166> 

<40> 

<183> 


SIGO-PRINTEE SS le er a an 
2200° IFHI<SCTHENHI=SC 

2210 PRINT" {UP23" 3 TAB(20-1{LEN(STR$ (SCI) 7/2) „"LYE 
LLOH LEFTY"SCSFRINT:PRINT=PRINT=PRINT" {RIGHT17}H 
zz=r 


2220 FORL=0T02500: NEXT:SC=0:G0T0130 
2230 DATAO,1,0,1,0,1,0,1 
2240 DATAO,1,0,.1,0.1.1.1 
2250 DATAO,1,1,1,1,1,0,1 
2260 DATA1,1,0,0,0,0,0,1 
2270 DATA18,16,4,13,13 
2280 DATAO,0,0,0,0,1,1,1 
2290 DATA1,1,1,0,1,0,0,1 
2300 DATA1,0,0,0,1,0,0,1 
2310 DATAl,iy1plpiyiplsl 
2320 DATA19,37,17,17,4 
2330 DATAO,0,0,0,1,1,1,1 
2340 DATA1,1,1,1,0,0,0,1 
2350 DATA1,0,0,0,0,1,0,1 
2360 DATAl,1,1z1s1y1,1,1 
2370 DATA20,37,30,30,15 
2380 DATAi,1,1,O,1y1y,15l 
2390 DATAO,1,1,0,1,0,0,1 
2400 DATAQ,1,1,0,0,0,0,1 
2410 DATAly1,1y1yp1y1y1yl 
2420 DATA22,37,37,2,2 
2430 DATAl,Iys1,1y1,1,1,1 
2440 DATAO,1,0,0,0,0,0,1 
2450 DATAO,1,0,0,0,0,0,1 
2460 DATAlz1yipiplyiylsl 
2470 DATA20,37,4,4,37 
2480 FORL=0T030: PRINT: NEXT: POKE65298, 196: POKE652 


997,208 
2490 COLORO,1:COLOR4,1:COLOR1,4,4 
2500 CHAR1,7,9, "CISPACEIOTSPACEIN{SPACEIGLSPACEI 
R{SPACEIALSPACEIT {SPACEIUTSPACEIL{SPACEIATSPACE} 
T{SPACE} L{SPACEID{SPACEIN{SPACEI" 
2510 CHAR1,14,15," {YELLOW}DUTSPACEIHASTSPACEIAL 
LE" 
2520 CHAR1,14,17,"{SPALEZILEVEL’S" 
25350 CHAR1,14,19," {SPACEIBESCHAFFT" 
2540 PRINT"{HOME DOHNS RIGHT133SCORE{SPACEY: {RVS 
ON ELASHON}",SC 
2550 FORL=1T05 
2560 FORLL=500T0700STEPZO 
2570 SOUND2,LL+49%*L,2:SOUND1 „LL+50#L,2:NEXT=NEXT 
2590 POKE239,0:GETKEYA$:G0TO130 

ENDE DES LISTINGS 



































tar Hostäe 


C-16 LISTING + CHECKSUMMEN (OC V1.0) 




















Bei Hostage geht es darum, Gei- 
seln aus einem Hochhaus zu ret- 
ten, die von Gangstern dorthin 
verschleppt wurden. Der Spieler 
steuert einen Hubschrauber über 
einem Hochhaus hin und her und 
läßt über einem Fenster, aus dem 
eine Geisel herausschaut, eine Lei- 
ter herunter. Die Leiter wird her- 
untergelassen und wieder herauf- 
gezogen. Wenn die Geisel hoch- 
gezogen wurde, erhält der Spieler 
Punkte. War es jedoch eine Bom- 
be, explodiert der Hubschrauber. 
Drei Hubschrauber stehen zur 
Verfügung. Nach jeweils 26 Gei- 


seln, die gerettet wurden, geht es 
zum nächsten Level über. Dann 
wechseln sich Geiseln, Bomben 
und Fenster schneller ab. 


Gesteuert wird mit den Cursorta- 
sten für links und rechts und mit 
der Space-Taste um die Leiter 
runterzulassen.: 


Das Spiel wird ganz normal mit 
LOAD ”HOSTAGE”, 8 oder 
DLOAD ”HOSTAGE?” geladen 
und mit RUN gestartet. 


O0 POKES6,47:CLR:GOTO500 
10 GETT$: IFT$=""THENSO 


20 IFT$="£RIGHT}" THENIFP<2ITHENCHAR1,P,6, "SPACE 


23" :P=P+1:CHAR1,P.6,"{D.BLUE S* 5A}":G0T050 

30 IFT$="{LEFT}"THENIFP>FTHENCHAR1 ,P,6,"TSPACEZI 
"2P=P-1:CHAR1,P,6,"{D.BLUE S* SA}":SGOTOSO 

40 IFT$=" {SPACE} "THENGOTOSO0O 

50 GOSUB100:60T010 

100 Z=2-1: IFZ>LVTHENRETURN 

110 Z=6:R=FNW (5) 25=FNW (AL) 20=FNW(7) 

120 CHAR1 ,9+5*2,10+R#2,6$ (0) :SOUND1 ,400+0#20,1 
197 RETURN 

300 1=0:P5=3312+P 

310 I=I+1: T=PEEK (PS+1#40) :M(1)=T:50LUND2,800-1#30 
„3: 60SUB100 

320 IFT=32THENFOKEPS+1#40,68: 6010310 

330 IFT=&9THENPOKEPS+1#40,196:60T0310 

340 IFT=16&0THENGOTO400 

345 IFT=70THENPOKEPS+1*40,68:60170310 

350 POKEPS+1#40,32: I=1-1 





Compute mit 





<193> 
<158> 


<34> 
<146> 
<189> 
<215> 
*223> 
<20i> 
<Ab> 
<241> 
<247> 
<247> 
<Ab> 
<200> 
x46> 
<A0> 
<44> 
<96> 
<101> 
<108> 
<90> 
<90> 
<146> 
<38> 
<166> 
<124> 
<134> 
<196> 
<154> 


<136> 
<200> 


<53> 


“165> 
<221> 
<117> 


<200> 
<100> 
<93> 
<207> 
<95> 


<114> 
<129> 


<247> 


<238> 
<62> 
<160> 
<183> 
<133> 
<137> 
<95> 
<a5> 


<34> 
<237> 
<10> 
<a5> 
<12> 
<169> 
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350 
365 
370 
380 
385 
3997 
400 
410 
497 
500 
510 
520 
530 
Ssso 


1=I-1:POKEPS+1*40, T:POKEPS+40#*I+40,M(I+1) 
SOUND? ,800-1#30 ,3:FORJ=1TD10:NEXT 
IFTI>1THEN3&O 

POKEPS+40,32 

IFT=&6THEN700: ELSEGOTOBOO 

GOT010 

I=1-1:FOKEPS+I#40,M(I) :SDUND2,800-1*30,3 
IFIF1THEN400 

GOTO1O 

GOSUB1000:REM NEUE ZEICHEN 

GOSUR2000:REM INITIALISIERUNG 

GOSUB3000: REM TITEL/ANLEITUNG 

GOSUB4000: REM BILDAUFBAU 

GOTO10 

700 FU=PU+LV:65=65+1 

710 PRINT"{HOHE BLACK DOWNY"sTAB(13)3 PU; TAB(21)5 
"{HHITEY"3GS 

730 SODUND1 ,330,7:FORI=1T0110:NEXT:SDUND1 ,330,7:5 
QUND1 ,500,15 

735 IFGS=25THENP=20:1LV=LV+1: IFLV>1OTHENLV=10 

736 IFGS=26THENGS=0: FORI=1T01000: NEXT: GOSUB4000: 
Z=0 
740 GOTO10 

800 HB=HRB-1:PRINT"{HOHE DOWN D.BLUE}Y"3TAB(30) ;HB 
810 FORI=1TOB:CHAR1,P,5,"{YELLOW S* SA}"sSOUNDS, 
400,7 

820 FORJ=1T020:NEXTSCHAR1,P,6,"{BLACK S* SA}”:5D 
UND3,400,7 

830 FORJ=1T020:NEXT: VOLB-I=:NEXT:CHAR1,P,6, "TSPAC 
2" 

835 IFHB=OTHENBSO 





840 FORI=1T0500: NEXT: VOLS:P=20:CHAR1,20,6,"{D.BL. 


UE S# SA}":GOTO1O 

850 SCNELR:CHAR1,15,9,"{BLACK FLASHONIGAME{SPACE 
IOVER{EFLASHOFF}Y" 

852 IFRK<PUTHENCHAR1,11,12," (HHITEINEUERLSPACEIR 
EKORD: "+STR$ (PU) :RK=PU 

855 VOL3:FORI=1T06:SOUNDi „800-1*100,7:SOUND2,700 
-1#100,7:NEXT 

8564 FORI=1T02000: NEXT 

840 P=20: VOLS: Z=0: PU=0:LV=1:68=0:HB=3:60OSUB3S005 
GOSUB4000: GDTO10 

390 END 

1000 REM *** NEUE ZEICHEN **#* 

1010 FORI=832T0849: READX:POKEI,X:NEXT:5Y5832 
1020 DATA 162,0,189,0,208,157,0,48,189,0,209,157 
»0,49,202.208, 241,96 

1030 FORI=128001012855: READX:POKEI ,X: NEXT 

1040 DATA 255,4,63,88,156,127,145,127 

1050 DATA 225,3,255,254,192,128,0,128 

1060 DATA 56,186,146,124,56,56,68,130 

1070 DATA 48,72,24,60,126,126,60,24 

1080 DATA 36,60,36,60,36,60,36,60 

1090 DATA 0,251,251,251,0,191,191,191 

1100-DATA 0,0,0,0,0,68,85,255 

1110 POKE#5298 ,PEEK (65298) AND251 

1120 FOKE&5299 „PEEK (65279) ANDZOR4B 

1130 DATA169,1,262,1,345,2,169,2,383,2,262,1,51& 
‚„1,453,3,345,2,169,1,262,1,345,2 

1140 DATA169,1,262,1,345,2,169,1,200,1,262,3,383 
‚1,453,1,516,2,383,2,596,2,516,1 

1150 DATA383,1,453,3,345,1,345,1,383,1,410,1,453 
,3,345,1,345,1,383,1,410,1,453,3 

11&0 DATA262,2 

1979 RETURN 

2000 REM **%*" INITIALISIERUNG #** 

2010 PU=0:HB=3:DIMM(15) „N(36) „L(36) 

2020 LV=1:68=0: Z=10 

2030 VOL3:FORI=0T036:READN(I) „L(I) :NEXTI 

2040 DEF FN W(X)=INT(RND(1)*X) 

2050 G$(0)="{SPACEI":G$(1)="HHITE SBI":6$ (Z)="t 
BLACK SC}":G$(S)="{BLACK SC}":6$(4)="{BLACK SCH” 
:6$ (5)="{SPACEI":G$(6)="CHHITE SB}" 

2999 RETURN 

3000 SCNELR:PRINT"CHOHE DOWN RED}"3:COLORO,1:COL 
ORA,1 

3005 PRINT"{SPACE4 SD SPACE2 SD SPACE2 SE2 SPACE 





Im 
3010 PRINT"{SPACE4 SD SPACE2 SD SPACE SE SPACE2 
SE SPACE SE SPACE4 SD SPACE2 SE SPACE2 SE SPACE 


SC SPACE4 SE>" 
3020 PRINT"{SPACE4 SD SE2 SD SPACE SE SPACE2 SE 





SPACE SC SPACE2 SE2>" 
2030 FRINT"{SPACE4 SD SPACE2 SD SPACE SE SPACE2 


<73> 
<15> 
<214> 
<7> 
<107> 
<11> 
<206> 
<218> 
<111> 
<196> 
<54> 
<220> 
<215> 
<1653> 
<91> 


<35> 


<164> 
<251> 


<18> 
<97> 
<59> 


<217> 
<207> 


<107> 
<169> 


<12> 
<31> 
<220> 


<236> 
<2> 


<249> 
<97> 
<20> 
<2356> 


<34> 
<89> 
<188> 
<8> 
<158> 
<244> 
<87> 
<249> 
<90> 
<147> 
<1> 


“5 
<249> 
<52> 
<229> 
<100> 
<167> 
<87> 
<165> 


<118> 
<167> 


<225> 
<80> 

<125> 
<182> 


<252> 


<10> 


programme , 


2 SC SPACE SEY" 
3040 PRINT"{SPACES SD SPACE2 SD SPACE2 SE2 SPACE 





PACE2 SE3}" 
3050 PRINT"{DOHNZ WHITE SPACE3YRETTE{SPACEIDIE{S 
PACE3GEISELNTSPACEFAUS{TSPACE+DEM{SPACEFHOCHHAUS! 











3060 PRINT"{DOUHN3 L.GRN SPACESY1IBALSPACEYATSPAC 
E}SWORDMASTER {SPACE>PRODUCTION" 

307090 PRINT"{DOHN SPACE3}...ANDISPACEITHETSPACEIA 
DVENTURE{SPACE3TCONTINUES. . ." 

3075 PRINT" {DQHN SPACE7}PROGRÄMM{SPACEIVONTSPACE 
FACHIM{SPACE}YLEIDIG" 

3080 FRINT"{DOHN2 PINK SPACE9}DRUECKEISPACEYEIN 
EISPACEYTASTE)” 

3090 B=-1 





























' 5100 B=B+1:SOUND1,N(B) „L(B) #10: SOUND2,N(B) +5,L(B 


)*10: IFR=36THENB=-1 

3105 SOUND1,0,1:SOUND2,0,1 

3110 GETT$: IFT$=""THEN3100 

3500 COLORO,1:COLOR4,1 

3505 SCNELR:PRINT"{HHITE SPACEI SC3 SPALEIHLSPAC 
EID{SPACEISTSPACEITSPACEIATSPACEIGISPACEFIESPAC 
E 5C3}" 

3510 PRINT"{DOHN PINK SPACE3IGANGSTER{SPACE}HABE 
N{SPACEISICH{SPACEIMIT{SPACEI26TSPACEIGEISELN" 
3520 PRINT"{DOHN SPACE} INTSPACEFEINEM{SPACEFHOCH 
HAUS{SPACE}3VERSCHANZT. {SPACEFDU{SPACEIHAST" 

3530 PRINT" {DOHN>DIESPACE}AUFGABE{SPACEIMITLSPA 
CE>DEINEM{SPACE+}HUBSCHRAUBER{SPACE? ({D.BLUE S* S 
A PINKY)" 

I540 PRINT" CDOHN SPACEIDIELSPACEIGEISELNESPACE} 
{HHITE SB PINK}) SPACEIAUS{SPACE}DEM{SPACEFHOCHH 
AUS{SPACE} ZU" 

3550 PRINT" (DOUNIRETTEN. {SPACE>IDAZULSPACEIMUSSTL 
SPACEYDULSPACEFEINE{SPACEISTRICKLEITER" 

3560 PRINT" {DOHN SPACE}HERUNTERLASSEN. {SPACEIGIB 
{SPACE} JEDOCHTSPACE}ACHT , {SPACEIDASS" 

3570 PRINT" DOWN SPACE}DIELSPACEIBANGSTERTSPACEI 
KEINE {SPACE>BOMBEN{SPACE} ({L.BLU SC PINK}) (SPACE 
JANLSPACEIDIE" 

3580 PRINT"{DOHN SPACE2ZYLEITER{SPACEIHAENGEN, {SP 
ACE>SONST{SPACEIFLIEGT{SPACEIDEIN" 

3590 PRINT" {DOHN SPACET3HUBSCHRAUBER {SPACE} IN{SP 
ACEIDIE{SPACEILUFT." 










































































.3600 FRINT" {DOHN> (STEUERUNG{SPACEYMIT{SPACEITLURS 





ORTASTEN{SPACE}UND{SPACEISPACE) " 

3640 PRINT"{DOHN CYAN SPACE11}(TASTE{SPACE}DRUEC 
KEN) " 

3650 B=-1 

3652 B=B+1:SDUNDI ,N(B) ‚L(B)*10:SOUND2,N(B)+5,L(B 
)*10: IFB-36THENB=-1 

3654 SOUND1,0,1:SOUND2,0,1 

3656 GETT$: IFT$=""THENS652 

3670 COLORO,14,6:CDLOR4,7,2 

3999 RETURN 

4000 REM #** BILDAUFBAU #** 

4005 SCNCLR:P=20:G0SUB4500 

4010 FORI=1T09STEP2 

4020 CHAR1,8 „BrT,TCRED SE233" 

4030 








sp 


4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4499 
4500 
E3EINSATZ {SPACE} IN" 
4510 FRINT" {DOHN}"z TAB(16) "{HHITEILEVEL=:";LV 
4512 FRINT" {DOHN}" 3 TAB(9) " CBLACK+BISHERIGER{SPAC 
E3REKORD: "5 :PRINTUSING"####" 3; RK 
4515 SOUND1,700,10:S5DUND1 ,600,10:SOUND1,700,10 
4520 FORI=1T02000: NEXT: SCNELR 
4929 RETURN 

ENDE DES LISTINGS 


CHAR1,8,19,"{SE233" 
CHAR1,0,19,"{GREEN SF8}" 
CHAR1,31,19,"{SE103" 

FORI=1T04 

CHAR1,0,19+1,"{RVSON SPACE40}" 
NEXT 

CHAR1,8,8,"{RVSOFF BRN SF23}" 
PRINT"CHOHE DOHN RIGHTS BLACKIPUNKTEE "PU; 
FRINTTAB(19)3"{HHITE SB3: "3655 
PRINTTAR(27)3"CD.BLUE Sx SA}s"ıHB 
CHAR1,P,6,"{D.BLUE S®# SA}" 

RETURN 











Gompute mib 


PRINT" {DOUN8}" 3 TAB(10) " {BLACK}ACHTUNG! {SPAC 


<134> 


<103> 


<37> 
<198> 
<206> 
<o> 


<231> 
<137> 


<138> 
<44> 
<14> 
<89> 


<141> 
<179> 


<52> 


<154> 


<o> 
<238> 


<39> 


<225> 
<98> 
<60> 
<18> 


<230> 
<187> 


<180> 
<83> 
<215> 
<224> 
<60> 
<116> 
<22> 
<95> 
<82> 


<95> 
<235> 
<187> 
<254> 
<4a7> 
<88> 
<145> 
<150> 
<8> 
<187> 
<183> 
<167> 
<125> 
<50> 


<146> 
<112> 


<232> 
<100> 
<224> 
<40> 


) 
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Programme 


r- 6 or 





Gisıt! 
Im Grunde genommen ist das 
Programm selbsterklärend. Nach- 


dem man das Programm gestartet 
und die ”F1”-Taste drücke hat, 
befindet man sich im Hauptme- 
nü. Erklärung der einzelnen 
Punkte: 


1: 


Abrufen Kunden von Dis- 


kette: 


2. 


Bevor man diesen Punkt auf- 
ruft, muß man eine Diskette 
mit den Adressdaten einlegen. 
Dann wird de Datei mit dem 
Namen ”Adressdatei” gesucht 
und geladen. Möchte man eine 
alte Datei erweitern, so lädt 
man’ diese zuerst ein und spei- 
ass, sie hinterher wieder neu 
ab. 


Speichern Kunden auf Dis- 


kette: 


3. 


Bei diesem Punkt wird man si- 
cherheitshalber noch einmal 
gefragt, ob wirklich. abgespei- 
chert werden soll. Andernfalls 
gelangt man mit ”F1” ins 
Hauptmenü. Achtung: Eine 
evtl. vorhandene Datei mit 
dem Namen ”Adressdatei” 
wird gelöscht. 


Kundenliste Schirm/Drucker 
Bei diesem Punkt gelangt man 


NBildschirm - 


Adress 16 


in ein Untermenü. 
Namensliste: 
Hierbei wird auf dem Bild- 
schirm der Name sowie deren 
Kundennummer ausgegeben 
(gesamter Speicher). 


ABildschirm - Adressliste: Hier- 


bei werden je 3 komplette 
Adressen mit Kundennummer 
auf dem Bildschirm ausgege- 
ben. Mit der ”+”-Taste kann 
man 3 Adressen weiterschal- 


ten, mit ”-” 3 Adressen zurück. 


DDrucker - Adressliste: Ähnlich 


wie Punkt A, aber alle Adres- 
sen werden ausgedruckt. 


EDrucker - Etiketten: Hierbei 


werden alle Adressen als Eti- 
ketten (ohne Telefonnummer) 
gedruckt, welche man direkt 
auf Briefumschläge kleben 


kann. . 


FDrucker - Namensliste: wie 


Punkt N, nur auf Drucker. 


4. Suche nach Kundenname: 


Nach Eingabe des Namens 
wird danach gesucht. Es reicht 
auch, nur den Vornamen anzu- 


geben. 


5. Suche nach Kundennummer: 
Nach Eingabe der Kunden- 
nummer wird der Kunde ge- 


sucht. 


speziell nach allen Namen su- 
chen, die z. B. mit A anfangen 
oder mit BL anfangen. Ebenso 
verfährt man bei den Postleit- 
zahlen. Man kann z. B. den 

anzen Bereich, der mit 6 an- 

ängt durchschauen oder aber 


6. Änderungen: noch feiner unterteilen z. B. 


Nach Eingabe des Namens ist 


es möglich, alle gemachten An- p, Di 
gaben zu ändern. Inhalt der im Laufwerk befind- . 


lichen Diskette. 

F7. Ende des Programmes 
Mit ”Goto 35” kommt man 
ohne Datenverlust wieder ins 
Hauptmenü. 


7. Neuer Kundenname. 
Nach Aufruf dieses Punktes 
werden 10 neue Kundennum- 
mern vorgegeben, welche man 
verwenden kann. Hat man ei- 
ne gewählt, so gibt man nach- 
einander den Kundenname, die 
Straße, die Haus-Nr., die PLZ, 
den Wohnort, sowie die Tele- 
fonnummer an. Anschließend 
kann man neue Kunden einge- 
ben oder aber ins Menü zu- 


rückkehren. 


Das Programm hat eine Länge 
von 12313 Bytes. Somit stehen bei 
der 64-K-Version noch 48356 By- 
tes für Daten frei. Von vornhe- 
rein ist das Programm auf 200 
Adressen festgelegt. Durch ge- 
ringfügige Änderungen ist es aber 
jederzeit erweiterbar. Sollte je- 
mand vor Start.des Programmes 
den Graphic-Modus aufrufen, so 
ändert der C16 seine Speicherver- 
waltung und es stehen dann nur 
noch 36068 Bytes zur Verfügung. 
Das Programm ist für Kassetten- 
und Diskettenbetrieb ausgelegt. 
Für die Datasette sind folgende 
Zeilen wie folgt zu ändern: 

1008 OPEN 7, 1, 7, "PADRESS- 
DATEI, SEQ, READ” 

Zeile 2001 löschen 

2008 OPEN 7, 1, 7, "ADRESS- 
DATEI, SEQ, WRITE” 

Damit wäre eigentlich alles. be- 
schrieben und wir wünschen viel 
Spaß mit ” Adress 16”. 


8. Lösche alle Kunden 
Hierbei werden alle Kunden 
im Speicher gelöscht. Eine Si- 
cherrheitsabfrage ist  vor- 
handen. 


9. Lösche einen Kunden 
Wie Punkt 8, aber für einen 
Kunden. 


A. Auswahl nach PLZ oder 
Name 
Bei digen Punkt kann man 





1 COLOR 0,2,7:COLOR 4,2,5:C0LOR 1,2,2 
2 KEY 1,CHRF(13Z):KEY 7,CHR$(140) 
3 PRINT "{CLEAR DOHN3 SPACET RVSON SPACE24 


FE} 


C-16 LISTING + CHECKSUMMEN (0C V1.0) 





<92> 
«73> 
VSOF 


<98> 


4 PRINT "{SPACET RVSON SPACE4 SA SPACE SD SPACE 
SR SPACE SE SPACE SS SPACE SS SPACEZILLSPACEIGLS 








PACE4 RVSOFF}" 


5 PRINT "{SPACE7 RYSON SPACE24 RVSOFF}Y" 


<37> 
<20> 





& PRINT "{SPACET RVYSON SPACE4} (SCH) OPYRIGHT{SPA 
CE31IBHISPACEA RUSOFFF" 


7 FRINT "{SPACET RVSON SPACE24 RVSOFF}" 





<112> 
<22> 





8 FRINT "{SPACE7 RVSON SPACE4 SHIANSPETER{SPACE 
SZIDOELLEISPACE4 RVSOFF}" 


7 FRINT "{SPACE7 RYSON SPACE24 RVSOFF}" 
10 FRINT=:FPRINT:PRINT:FRINT=:FRINT=:FRINT: PRINT 








<o> 
<24> 
<215> 
x26> 









































11 PRINT "{SPACET7 RVSON 
12 PRINT "{SPACE7 RVSON 
EtSPACE}DRUECKEN{SPACEZ 
153 PRINT "tSPRACE7 RVSQN 
) 

14 GET W$:IF W$="" THEN 
15 IF W$=CHR$(133) THEN 
16 G0TD 14 

20 EN=O 

30 


DIM A$ (200) „NA$ (200), 


SPACE24 RVSOFF}” 

SPACE4 SFIALSPACE STIAST 
RUSOFF>" 

SPACE24 RVSOFF}" „CHR$(14 


14 
20 


AN (200) „AD$ (200) „TE$ (200 


),AUDF(200) „WIE (200) „DN$ (200) 


34 REM 


35 REM ##** HAUPTMENUE KKHnHHnHeacEneek 


36 REM 


<148> 


<208> 
<161> 
«152> 
<151> 
<203> 


<238> 
<177> 
<191> 
<179> 

















40 FRINT CHR$ (14) <133> 
47 PRINT "{CLEAR?";z <116> 
48 PRINT "{DOHN RVSON SPACEI1{SPACE RVSOFF SPACE 
3-{SPACE SA}YBRUFEN{SPACE SK}UNDEN{SPACE}VONSPAC 

E SDIISKETTE" «73> 
49. PRINT <202> 
50 PRINT "{RVSON SPACEI2{SPACE RVSOFF SPACE}-ISP 

ACE SS}PEICHERN{SPACE SK}UNDENTSPACEFAUFLSPACE S 

DI ISKETTE" - <54> 
55 PRINT <208> 
60 PRINT "{RVSON SPACE}S{SPACE RVSOFF SPACEI-ISP 

ACE. SK}UNDENLISTE{SPACE. SSICHIRM/ (SDFRUCKER" <19> 
&5 PRINT <219> 
70 PRINT "{RVSON SPACEIALSPACE RVSOFF SPACE}-ISP 

ACE SSIUCHETSPAGEINACHTSPACE SKIUNDENNAME" <163> 
75 PRINT <228> 
80 PRINT "{RVSON SPACEIS{SPACE RVSOFF SPACEI-ISP 

ACE SS}UCHESPACEINACH{SPACE SKYUNDENNUMMER" <100> 
85 PRINT <238> 
970 PRINT "{RVSON SPACEIGTSPACE RVSOFF. SPACEI-ISP 

ACE SAFENDERUNGEN" <10> 
95 FRINT <249> 
100 PRINT "{RVSON SPACEITISPACE RVSOFE SPACEI-tS. 

PACE SN?EUERLSPACE, SKFUNDENNAME" <187> 
105 FRINT «2> 
110 PRINT "{RVSON SPACEIBLSPACE RVSOFF SPACEI-tS 
PACE>LOESCHE {SPACEIALLE SPACE SKIUNDEN" <137> 
115 PRINT > <12> 
120 PRINT _"{RVSON SPACEIF{SPACE. RVSOFF SPACEI-TS 
PACEILOESCHE (SPACEIL{SPACE SKIHUNDEN" <185> 


Compute mib 


122 PRINT 
125 PRINT "ERVSON SPACE SA SPACE RVSOFF SPACEI-tT 


SPACE SAYUSWÄHLCSPACEINACH{SPACE SP SL SZ SPACE} 


ODER{SPACE SN}AME" 
126 FRINT 








SPACE SPY IRECTORY" 
128 FRINT 
120 PRINT "LRVSON SPACE SEITLRVSOFF. SPACEY--SPAC 


E SEINDELSPACEIDESTSPACE SPYROGRAMMS” 

141 GET W$s IF W$="" THEN 141 

142 IF WE="1" THEN 1000 

143 IF W$="2" THEN 2000 

144 IF WE="3" THEN 3100 

145 IF W$="4" THEN 5000 

14& IF W$="5" THEN 6000 

147 IF W$="6" THEN 7000 

148 IF W$="7" THEN 8000 

149 IF W$="8" THEN 9000 

150 IF W$="9" THEN 10000 

151 IF W$="A" THEN 12000 

152 IF W$="B" THEN 13000 

153 IF W$=CHR$ (140) THEN 11000 

160 GOTO 141 

180 REM 5 

181 PRINT:PRINT 

183 PRINT "{RVYSON SMIENUELSPACESI--ISPACE SFYIILTR 
VSOFF}" 

184 GET W$: IF W$="" THEN 184 

186 IF W$=CHR$(13FIT THEN 35 

188 GOTO 184 

998 REM 

999 REM ### LADEN HERR 

1000 REM = 

1002 PRINT "{CLEAR}"s 

1005 PRINT "{RVSON SA}YDRESSENLISTEISPACEIWIRDISP 
ACEYGESUCHT" 

1007 PRINT:PRINT "{RVSON SBYITTE{SPACEIWARTEN!" 
1008 OPEN 7,8,7,"ADRESSDATEI „SEQ,READ" 

1009 INPUT#7,EN 

1010 FOR X=1 TO EN 

1015 INPUT#7,AN(X) 

1018 IF AN(X)=O THEN 1030 

1020 INPUT#7 ,„NA$(X) 

1022 INPUT#7,AD$(X) 

1023 INPUT#7,TEFCK) 

1024 INPUT#7,AD$(X) 

1025 INPUT#7,WIS(X) 

1025 INFUT#7,DA$(X) 

1030 NEXT X 

1040 CLOSE 7 

1050 GOTO 35 

1998 REM 

1999 REM #** SPEICHERN #R##@xunnnntnEH 

2000 REM 

2001 PRINT”{CLEAR DOHN2 RVSON SPACE SSYPEICHERNT 
SPACESY--ISPACE2 SRYETURNTSPACE2}Y" SPRINT" {RVSON 
SPACE SHYENUETSPACEIF--ISPACE2 SF SPACEYLISPACES 
} ” 

2002 GET W$: IF W$="" THEN 2002 

2003 IF W$S<Z>CHRE(1SI THEN 35 

2004 OPEN15,8,15:PRINT#15,"S: ADRESSDATEI"=CLOSE 
15 

2005 PRINT "{CLEAR RVSON SN>AMEISPACEYDERTSPACE 
SDIATEI{SPACE}I={SPACE SAYDRESSDATEI{SPACE RVSOFF 
Pd 

2006 PRINT "{DOHN RVSON SAYDRESSENLISTEISPACEIWI 
RD{ISPACE}GESPEICHERT" 

2007 FRINT:PRINT "{RVSON SBYITTEISPACEIWARTEN" 
2008 OFEN 7,8,7,"ADRESSDATEI „SEQ,WRITE" 

2009 PRINT#7,EN 

2010 FOR X=1 TOD EN 

2015 PRINT#7,AN(X) 

2018 IF AN(X)=O THEN 2030 

2020 PRINT#7,NA$(X) 

2022 FPRINT#7,AD$(X) 

2023 PRINT#7,TE$(X) 

2024 PRINT#7,AD$(X) 

2025 FPRINT#7,WI$S(X) 

2026 PRINT#7,DA$(X) 

2030 NEXT X 

2040 CLOSE 7 

2050 60T0 35 

3000 REM 

3001 PRINT 

3002 PRINT "{RVSON SAYDRESSENLISTEISPACEIDRUCKEN 









































<19> 


<el> 
<23> 


<170> 
<25> 


<97> 
<206> 
<218> 
<2354> 
<4> 
<19> 
<35> 
<51> 
<57> 
<83> 
<130> 
<199> 
<216> 
<128> 
<235> 
<67> 
<141> 


<154> 
<87> 
<144> 
<31> 
<120> 
<159> 
<122> 
<50> 


<49> 
<252> 
<228> 
<4> 
<244> 
<154> 
<77> 
<19> 
<240> 
<6b> 
<42> 
<101> 
<242> 
<60> 
<34> 
<172> 
<100> 
<233> 
<102> 


<B> 
<210> 
<177> 


<170> 


<154> 


<205> 
<116> 
<42> 
<4> 
x224> 
<154> 
<67> 
<19> 
<240> 
<b6> 
<4a1> 
<100> 
<241> 
<39> 
<13> 
<152> 
<82> 
<93> 


programme 


XSPACE2I--ISPACE SI SPACE RVSOFF>" 

3003 PRINT "{RVSON SH3ENUE{SPACEISI--ISPACE SE) 
{RVSOFF}" - 

3004 GET W$:IF W$="" THEN 3004 

3005 IF W$="J" THEN 4000 

3006 IF W$=CHR$(133) THEN 35 

3007 GDTO 3004 

3010 PRINT "{CLEARY"”s 

3015 Z=1 

3022 FOR X=1 TO EN 

3023 IF AN(XI=0 THEN 3033 

3024 IF AN(XI<=9 THEN 3027 

3025 IF AN(X)>=10 AND AN(X)<=97 THEN 3028 

3026 IF AN(X)>=100 THEN '3029 

3027 PRINT "{SPACE23";:PRINT AN(X)5sPRINT "tSPAC 
E3}"3:PRINT NA$(X):BOTD 3030 

3028 PRINT "{SPACE3"”;:PRINT AN(X)5=2PRINT "SPACE 

















"33"3=PRINT NA$(X):6DTD 3030 


3029 
3030 
3032 
3033 
3035 
3040 
3050 
3052 PRINT 

3053 PRINT "{RVSON>WEITERE{SPACE}Z2OISPACE SHIAME 
NISPACE2Y--SPACE2 SRYETURN{SPACES RVSOFF}” 

3054 PRINT "{RVSDON SHYENVELSPACEI3I--ISPACE2 SF 


PRINT AN(X)3=PRINT "tSPACE3Y"3:PRINT NAS(X) 
IF Z/20=INT(Z/20) THEN 3050 

Zz=7+1 

NEXT X 

PRINT 

G0TO 3000 

REM 














SPACEYLISPACET RVSOFF}" 
3060 Z=1 
3061 GET W$: IF WE="" THEN 3061 


3062 
3063 
3064 
3065 
3066 
3098 
3099 
3100 
3110 
3120 Sn 

B} ILDSCHIRM{SPACEI-{SPACE SN}AMENSLISTE" 3 
3122 PRINT 


IF W$=CHR$(133) THEN 35 

IF W$=CHR$(13) THEN 3065 

60TO 3061 

PRINT "{CLEAR}": 

60T0O 3033 

REM 

REM **# KUNDENLISTE ANZEIGE ##nr0# 
REM 

PRINT "{CLEARY"3 





B} ILDSCHIRMISPACE}I-ISPACE SA}YDRESSENLISTE" 
3126 FRINT=:PRINT:PRINT 





DYRUCKER{SPACE4}-(SPACE SA}DRESSENLISTE 
3128 PRINT 
3130 PRINT "{RVSON SPACE SE SPACE RVSOFF SPACE S 
DIRUCKER(SPACE4}-{SPACE SEITIKETTEN" 
3131 PRINT "{DOHN RVSON SPACE SF SPACE RVSOFF SP 
ACE SDYRUCKER{SPACE4I-ISPACE SNIAMENSLISTE” 
3132 FRINT:PRINT _ 
S1S4 PRINT "{RVSON SPACE SFIL{SPACE RVSOFF. 
SH}ENUE" j 
3140 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3200 
3201 
3205 
3210 
3211 
3212 
3213 
3214 
3215 
3220 








SPACE 





GET W$s IF 
IF WE="N" 
IF W$="F" 
IF We="D" 


W$="" THEN 3140 

THEN 3010 

THEN 3600 

THEN 4000 

IF W$="E" THEN 3500 

IF W$="A" THEN3200 

IF W$=CHR$(133) THEN 55 

GOTO 3140 

REM 

X=1 

PRINT "{CLEAR}”z 

FOR X=X TO X+2 

IF X>200 THEN 3260 

IF X<=7? THEN PRINT "{SPACE2Y"3X 
IF xX<=997 THEN PRINT "{SPACE}Y"3X 
IF X>=100 THEN PRINT X;3 

IF NA$S(X)="" OR NA$IXI="ISPACEI"” 
PRINT SPC(1) NA$(X) 


G60T0 3215 
GOTO 3215 


F 
s 
r 
’ 


THEN 3350 











32350 PRINT SPC(6) AD$(X) 3 "ISPACEI"STEFCK) 

3240 PRINT SPC(&6) ADS(X) 3"ISPACEI"ZWISCK) 

3250 PRINT SPC(&6) "£{ST}EL.:{SPACE}"DASIX) 

3252 PRINT:PRINT 

3260 NEXT X 

3262 PRINT "{HOHE DOHWHN20}"3:PRINT "{RVSON SPACE} 


+{SPACETI=CSPACE2I3{SPACE2 SA>YDRESSEN{SPACEZIWEI 
TER{SPACEY" 

3263 PRINT "{RVSON SPACEI-ISPACETI=TSPACE2I3TSPA 
CE2 SA}DRESSEN{SPACE2} ZURUECK" 

3264 PRINT "{RVSON SPACE SFI1SPACESI=LSPACE2 SH 








Compute mib 


<136> 


<37> 
<234> 
<197> 
<159> 
<13> 
<18> 
<35> 
<216> 
<101> 
<25> 
<51> 
<197> 


<63> 


<179> 
<149> 
<169> 
<7&> 
<22> 
<127> 
<26> 
<132> 
<144> 


<30> 


<155> 
<B0> 
<74> 
<215> 
<61> 
<79> 
<73> 
<79> 
<181> 
<42> 
<183> 
<119> 


<102> 
<215> 


<242> 
<255> 


<95> 
<221> 


.<96> 


<137> 
<32> 


<39> 
<124> 
<105> 
<107> 
<457> 
<93> 
<40> 
<45> 
<154> 
<27> 
<220> 
<214> 
<183> 
<212> 
<234> 
<131> 
<167> 
<72> 
<182> 
<6B8> 
<4> 
<o> 
<152> 
<250> 


<8> 


<3> 
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programme 


3ENUE{SPACEI1SY" 


3270 
3272 
3274 
327& 
3278 
3500 
33502 
3303 
3304 
3350 
3352 
3333 
3354 
3355 
3356 
3500 
3505 
3540 
3550 
3552 
3553 
3555 


GET W$: IF W$="" THEN 3270 
IF W$="+" THEN 3205 

IF W$="-" THEN 3300 

IF W$=CHR$(133) THEN 35 
GOTO 3270 

REM 

X=X-6 

IF X<=1 THEN X=1 

G0TO 3205 
REM 

PRINT SPC<(1) 
PRINT SPC(6) 
PRINT SPC (6) 
PRINT 

G0TO 3252 
REM 

OPEN 1,4,7 
Xx=1 

FOR X=1 TO EN STEP 2 

PRINT#1,NA$S (X); 

PRINT#1 „CHR$ (141) TAB(40) 5NA$ (X+1) 

PRINT#1 

3560 PRINT#1,ADSCK) 3 "CSPACEI"HTES (N) 

3561 PRINT#1,CHR$ (141) TAB(40) 5 ADS (X+1) 3" CSPACEI" 
;TES(X+1) 

3563 PRINT#1 

3570 PRINT#1,AD$(X) 3 "ISPACE23"3WIS(X)5 

3571 PRINT#1,CHR$(141) TAB (40) 5AD$(X+1) 5" CSPACE2I 
"SWISCX+1) 


" (SK3UNDENNUMMER{SPACE2I" 3X 
"NICHT" 
"BELEGT{SPACEI!" 





3575 PRINT#1:PRINT#1:PRINT#1 

3576 IF X/8=INT(X/8) THEN PRINT#1,CHR$(12)5 

S578 NEXT X 

3594 CLOSE 1 

SsS595 GOTO 47 

3600 OFEN 1,4,7 

3620 FOR X=1 TO EN 

3630 IF AN(X)=0 THEN 3710 

3640 IF AN(X)<=9 THEN 3680 

5650 IF AN(X)>=10 AND AN(X)<=997 THEN 3690 

5660 IF AN(X)>100 THEN 3700 

3680 PRINT#1 ,"{SPACEZY" ZAN(K)IZ"LSPACEZI"S3NAS(K): 
60T0 3710 

3690 FRINT#1," {SPACE} "ZAN(X)IZ"ISPACEIY"SNAS(X):G 
oTO 3710 

5700 PRINT#1,AN(X) 3 "{SPACE33"3NAS(X) 

3710 NEXT X 

3720 GOTO 3100 

4000 REM f 
4001 PRINT "{CLEAR}":PRINT=PRINT 

4002 PRINT "{SH}ELCHE {SPACE SK3UNDEN-NUMMERN{SPA 


CEIDRUCKEN{SPACE}?":PRINT:PI PRINT 








4003 PRINT "{RVSON SPACE SA SPACEI={SPACEIALLEIS 





PACE SA>DRESSEN{SPACEI}" 
4004 PRINT "{RVSON SPACE SY SPACEI={SPACE SNIUMM 
ERISPACE2}V{SPACEZ2Y-{SPACE2}ZISPACET} "PRINT" ERV 











SON SPACE SFIILXSPACEI={ISPACE SHYENUE{SPACEIS RVS 











DrFy" 
4005 GET W$: IF W$=CHR$(133) THEN 35 

4006 IF W$="A" THEN 4009 

4007 IF W$="Y" THEN 4070 

4008 GOTO 4005 

4009 PRINT "{DOHN RVYSON SDYRUCKERTSPACE} INSPACE 
SBIETRIEB{SPACEI-{SPACEIBITTESPACEIWARTEN! {RVS 

GEF>" 

4010 OPEN 1,4,7 

4017 FOR X=1 TO EN 

4018 IF AN(X)=O THEN 4040 

4020 PRINT#1,"{SPACE SK}D-NR. 2 {SPACE}"AN (X) 

4021 PRINT#1,"{SPACE3"SNA$(X) =PRINT# 

4022 PRINT#1,"{SPACE}"ZAD$(X) 3 

4023 PRINT#1,TE$(X) 

4024 PRINT#1,"CSPACEI"ZAUF(K) 5 zPRINT#1,"{SPACE2} 
4025 PRINT#1,WIE(X) 

4026 PRINT#1,"{SPACE ST}EL: {SPACE}"3DAS(K) 

4028 PRINT#1:PRINT#1:PRINT#1 

4040 NEXT X 

4050 CLOSE 1 

4060 6010 35 

4070 PRINT:PRINT 

4072 INPUT "Yz{SPACE23";Y 

4074 INPUT "Z: {SPACE2Y"3Z 

4075 IF Z<Y THEN 4070 

4076 GOTO 4100 

4100 


REM 





<24> 
<53> 
<94> 
<58> 
<174> 
<43> 
<127> 
<112> 
<159> 
<66> 
<178> 
<3> 
<44> 
<163> 
<193> 
<124> 
<72> 
<57> 
<195> 
<244> 
<87> 
<53> 
<234> 
<39> 


<12> 


<242> 
<122> 


<115> 
<13> 
<216> 
<57> 
<26> 
<175> 
<153> 
<49> 
<213> 
<184> 
<17> 
<90> 


<146> 


<67> 
<8B0> 
<190> 
<200> 
<62> 
<228> 


<95> 


<60> 


<204> 
<5> 
<232> 
<90> 
<i> 


<131> 
<532> 
<1971> 
<59> 
<33> 
<5> 
<207> 
<14> 


<82> 
<48> 
<134> 
<212> 
<9> 
<227> 
<121> 
<205> 
<250> 
<B> 
<233> 
<a7> 
<163> 


4110 
4117 
4118 
4120 
4121 
4122 
4123 
4124 
"7; 
4125 
4126 
4128 
4140 
4150 
4160 
4998 
4999 
5000 
5005 
5010 
EN" 
5012 
5015 
5020 
5025 
5030 


OPEN 1,4,7 

FOR X=Y TO zZ 

IF AN(X)=0 THEN 4140 

PRINT#1,"{SPACE SKYD-NR. : {SPACEY"AN(N) 
PRINT#1 ,"{SPACE}Y"3NA$ (X) =PRINT#1 
PRINT#1,"{SPACEY"ZADS(KI 5 

PRINT#1,TE$(X) 
PRINT#1,"{SPACEI"ZAO$S(X) 5 SPRINT#1 ,"{SPACE2}Y 














PRINT#1,WI$ (X) 

PRINT#1 ,"{SPACE}"3DAF(X) 
PRINT#1=2PRINT#1:PRINT#1 

NEXT X 

CLOSE 1 

G0TO. 35 

REM 

REM ### SUCHEN NAME #uuHnnnnnanneH 
REM 

PRINT "{CLEAR}Y"z 

FRINT "{RVSON SNYAMEISPACEYDESTSPACE SKIUND 











FRINT 

INPUT N$ 
FOR X=1 TO EN 

IF LEFT$(NA$(X) „LEN(N$)I=N$ THEN 5060 
NEXT X 
5035 PRINT 
5040 PRINT 
UNDEN" 
5045 FRINT 
5050 PRINT "{RVSQON SN}YAME{SPACEINEUTSPACEFEINGEB 
EN{SPACE2Y!!!{RVSOFF}Y" 
5052 FOR T=1 TO 1500:NEXT T 
5053 GOTO 35 
5060 PRINT "{CLEAR}"; 
5070 PRINT "£SKFUNDENNUMMER" FAN (X) =PRINTSPRINTSP 
RINT=:FRINT NA$(X) 
5075 PRINT 
5080 PRINT 
5085 PRINT 
5090 PRINT AD$S(X)3"CSPACEY"ZWIS(CK) 
5095 PRINT:PRINT : 3 
5100 FRINT "£{STYELEFON: "5 "{SPACEI"3DA$(X) 
5105 FRINT:PRINT 
5111 PRINT "{RVSON SA}YDRESSE{SPACE}DRUCKEN{SPACE 
23--ISPACE2 SJ SPACE2 RVSOFF}" 
5112 FRINT "{RVSON SHYENUE{SPACEI12Y--{SPACE2 SF} 
11SPACE RVSOFF}Y" 
5115 GET W$: IF W$="" THEN 5115 
5116 IF W$="J" THEN 5300 
5117 IF W$=CHR$(133) THEN 35 
5118 G0T0 5115 
5130 GOTO 180 
5300 REM 
5310 OPEN 1,4,7 
5320 PRINT#1 ,NA$(X) 
5322 FRINT#1 

5324 PRINT#1,AD$(X); 
5325 PRINT#1,TE$(X) 
5326 FRINT#1 
5328 FRINT#1,ADS(X) 3 "{SPACE3Y"ZWIS (X) 
5331 PRINT#1 
5332 PRINT#1 
5333 CLOSE i 
5340 GOTO 35 

REM 


397977 
39778 REM ##%* SUCHEN NUMMER #HaRRKRKaReR 
REM 


5999 
6000 PRINT "{CLEAR}"3:PRINT "{RVSON SH>IEISPACEI 
IST{SPACE}DIETSPACE SKYUNDENNUMMER" 

6001 PRINT 

6002 INPUT X 

6010 IF AN(X)=O THEN 6200 

6060 PRINT"{CLEARY"; 

6070 PRINT "£SK3UNDEN-{SNIR. "zZAN(X) =PRINTEPRINT: 
FRINT:PRINT NA$(X) 

6075 PRINT 

6080 PRINT AD$(X)5"CSPACE}"z 
&085 PRINT 

6090 PRINT AQ$(X) 3 "{SPACEF"SWI$ (X) 
6095 PRINT:PRINT 

&100 PRINT "{STIELEFON: {SPACE} ";DAS(X) 
6105 PRINT:PRINT 

6130 GOTO 5105 

6200 REM 

6205 PRINT:PRINT:PRINT 


"{RVSON SKYUNDESPACE}INICHT{SPACE}IGEF 








ADS(X)S"CSPACEI"STES(X) 





"{SPACE2}Y"3 





TE$S(X) 





Compute mib 





<153> 
<32> 

<171> 
<134> 
<106> 
<52> 

<115> 


<183> 
1a 
<251> 
«37 
<110> 
“72 3 
<222> 
<40> 
<69> 
<a2> 
<229> 


<107> 
<64> 
<55> 
<174> 
<156> 
<285> . 
<87> 


<34> 
<97> 


<168> 
<1535> 
<94> 
<28> 


<82> 
<127> 
<61> 
<137> 
<199> 
<210> 


ı <236> 


<220> 
<2> 


<171> 
<115> 
<51> 
<230> 
<100> 
<113> 
<87> 
<77> 
<248> 
<216> 
<12> 
<41> 
<220> 
<215> 
<225> 
<226> 
<235> 
<126> 
<19> 
<165> 
<21> 


<93> 
<33> 
<190> 
<5> 
<8> 


<27> 
<107> 
<41> 
<117> 
<179> 
<1970> 
<119> 
<200> 
<88> 
<223> 
<18> 


2187 


6210 PRINT "{RVSON SK}UNDENNUMMERISPACEINICHTISP 

ATEIBELEGT SPACE}!!! {RVSOFF}" 

6215 PRINT=:PRINT 

6220 G60T0 180 

6977 REM 

6998 REM ### AENDERN Heer 

69997 REM . 

7000 PRINT "{CLEAR RVSON SH}YELCHER{SPACE SKYUNDE 

NNAME" zPRINT: INPUT N$ 

7010 FOR X=1 TD EN 

7020 IF LEFT$SINA$(X) „LEN(N$))=N$ THEN 7060 

7030 NEXT X 

7035 PRINT 

7040 PRINT "{RVSON SKYUNDESPACEINICHT{SPACEIGEF 
fs UNDEN" sPRINT 
7050 PRINT "{RVSON SNIAMECSPACEINEUTSPACEIEINGEB 
MENLSPACE}Y!!! CRVSOFF 

















7052 FOR T=1 TO 1500:NEXT T 

7055 G0TO 35 

7060 AN(LWI=AN(X) 

7062 60T0 7080 

7080 PRINT "XCLEAR}"3 PRINT "{SK}UNDENNUMMER" 3 AN 
“u - 

7082 PRINT 

7084 PRINT NAS(X) 

7085 PRINT 

7090 PRINT AD$(X)3 "{SPACEI"ZTES(X) 

7095 PRINT ' 

7100 PRINT AD$(X) 3 "CSPACEI"3WIS(X) 

7105 PRINT : 

7110 PRINT "{STIELEFON: "3 "(SPACEI"3DAS(X) 

7120 PRINT 

7122 PRINT "{RVSON SWIASTSPACEISOLLT{SPACEIGEAEND 
ERT{SPACE}WERDEN{SPACEI?{RVSOFF}" 

7123 PRINT 

7125 PRINT "{RVSON SPACE SK SPACE RVSOFF SPACE $ 
K3UNDENNUMMER" 

7126 PRINT "({RVSON SPACE SN SPACE RVSOFE SPACE S 
NAME" 

7127 PRINT "{RVSON SPACE SS SPACE RVSOFF SPACE 5 
SITRASSE" 

7128 PRINT "{RVSON SPACE SH SPACE RVSOFF SPACE S 
H3 AUSNUMMER" 

7129 PRINT "{RVSON SPACE SP SPACE RVSOFE SPACE S 
PIOSTLEITZAHL" 

7131 PRINT "{RVSON SPACE SH SPACE RVSOFE SPACE S 
H>OHNORT" 

7133 PRINT "{RVSON SPACE ST SPACE RVSOFF SPACE S 
T}ELEFONNUMMER" 

7135 PRINT "{RVSON SPACE SFI1XRVSOFE SPACE SHIEN 
UE " 

7144 PRINT 


7145 PRINT "{RVSON SKYENNBUCHSTABE {SPACE2}EINGEB 
EN{SPACE}!!!{RVSOFF 








7150 GET W$: IF W$="" THEN 7150 
7152 IF W$="N" THEN 7190 

7153 IF THEN 7170 

7154 IF THEN 7210 

7155 IF THEN 7230 

7156 IF W$="P" THEN 7250 

7157 IF W$="W" THEN 7270 

7158 IF W$="T" THEN 7290 

7159 IF W$=CHR$ (133) THEN 7400 
7180 GOTO 7150 

7170 PRINT "{CLEAR SNYEUEISPACE SK}UNDENNUMMER{S 


PACE2}7?": PRINT 

7171 PRINT "{RVSONINUR{SPACEIFOLGENDE{SPACE SK}U 
NDENNUMMERN{SPACE}WAEHLEN{SPACE} = {RVSOEF}" PRINT 
7172 FOR Z=1 TO EN 

7173 IF AN(Z)=O THEN PRINT Z 

7174 NEXT Z 

7175 PRINT:PRINT "{RVYSON SE} INGABE{SPACE}YDERTSPA 
CE SK}UNDENNUMMER {SPACE} ! {RVSOFF}"=PRINT 

7178 INPUT U 

7179 AN(U)I=U 

7180 GOTO 7080 J 

7190 PRINT "{CLEAR}"3:PRINT "{RVSON}DER{SPACEINE 
UEISPACE SH>AME"SPRINT: INPUT NA$(X) 

7200 GDTO 7080 

7210 PRINT "{CLEARYDIE{SPACEINEUE{SPACE SS}TRASS 
E"=PRINT: INPUT AD$(X) 

7220 GOTO 7080 

7230 PRINT "{CLEARIDIE{SPACEINEUETSPACE SHIAUSNU 
MMER"=PRINT: INPUT TE$S(X) 

7240 G60TD 7080 

7250 PRINT "(CLEARYNEUE{SPACE SPIOSTLEITZAHL"=PR 























<165> 
<55> 
<183> 
<255> 
<36> 
<1> 


<121> 
<124> 
<153}+ 
<195>3 
<47> 


<46> 


<53> 
<113> 
<56> 
<35> 
<8> 


<55> 
<94> 
<70> 
<97> 
<31> 
<107> 
<169> 
<117> 
<206> 
<132> 


<35> 
<135> 


<182> 
<85> 
<147> 
<23> 
<3> 
<106> 
<533> 


<41> 
<156> 


<6i1> 

<115> 
<168> 
<129> 
<122> 
<797> 

<150> 
<215> 
<220> 
<1253> 
<97> 


<71> 


<109> 
<35> 
<133> 
<88> 


<6l> 
<85> 
<28> 
<127> 


<116> 
<147> 


<147> 
<167> 


<190> 
<187> 


‚| 7460 


‘8008 


Programme _ 


INT: INPUT AD$(X) 

7260 GOTO 7080 

7270 PRINT "{CLEARYNEUER{SPACE SH3OHNDRT"=PRINT: 
INPUT WI$(X) 

7280 GOTO 7080 

7290 PRINT "{CLEARYNEUE{SPACE STIELEFONNUMMER":P 
RINT: INPUT DAS (X) 

7295 60T0 7080 

7400 REM 

7402 IF AN(UI=AN(X) THEN 35 

7410 AN(X)=O 

7420 NA$tU)I=NAS (X) ENASIKI="" 

7430 ADS(UI=ADS(K) SADSIXI="" 

7440 TES(W=TES(K)I:TESIKI="" 

7450 A0GS(W=AOS(KI EADSCKI="" 

WIS(W=WISCK) EWIECKI="" 

DAS (U) =DAS (XI 2DAFCKI="" 

7480 GOTO 35 

7500 PRINT "{DOHN2 RVSON SPACE SDYIESEISPACE SH} 
UMMER{SPACE}Y IST {SPACE }SCHON {SPACE} VORHANDEN{SPAC 
EI!!! CSPACE RVSOFFY" 

7510 FOR I=1 TO 1500:NEXT I 

7998 REM 

7999 REM »** NEUER KUNDE Ks 

8000 REM 

8001 PRINT "{CLEARY"3 

8004 Y=1 

8005 FOR X=1 TO 200 

IF NA$(X)="" THEN 8200 

IF Y>=11 THEN 8014 

8013 NEXT X 

8014 PRINT "{RVSON SVYERWENDEN{SPACEISIETSPACEIF 
OLGENDE{SPACE SKYUNDEN-NUMMERN{SPACE}Y: {RVSOFF}": 
PRINT 

8015 FOR X=1 TO Y-1 

8017 PRINT PP(X) 

8019 NEXT X ? 

8020 PRINT: INPUT "{RVSON SKYUNDEN-NUMMER{SPACE4 

RVSOFF}"3NF 





7470 








8011 














8021 FOR X=1 TO Y-1:1F NF=PP(X) THEN 8023 

8022 NEXT X:X=Y-1:60T0 7500 

8023 AN{NFI=NF= IF NF<=O THEN 8000 

8024 IF NF>PP(10) THEN 8000 

8025 REM 

8028 PRINT "{CLEARY";=FPRINT "{RVSON SK}UNDEN-NUM 








MER{SPACE$S RVSOFF}Y"3NF 
8030 FRINT 

8032 INPUT "{RVSON 
PACE}" 3NA$(NF) 


SKYUNDEN-NAME{SPACES RVSOFF S 


8033 IF NA$(NF)="" THEN 8400 

8034 PRINT 

8036 INFUT "{RVSON SSYTRASSEISPACEF RVSOFF SPACE 
3"z;AD$(NF) 

8037 IF AD$(NF)="" THEN AD$(NF)="X" 

8038 PRINT 


8040 INPUT "{RVSON 
EI"; TES(NF) 
8042 IF TES(NF)="" 
8045 PRINT 

8050 INPUT "{RVSON 
SPACE} "3AD$(NF) 
8052 IF AD$(NF)="" 


SH}AUS-NR. {SPACES RVSOFF SPAC 
THEN TE$(NF)="X" 


SPIOSTLEITZAHL{SPACE4 RVSOFF 





THEN AD$(NF)="X" 


8055 PRINT 

8060 INPUT "{RVSON SH}OHNDORT{SPACES RVSOFFE SPACE 
3"5WI$CNF) 

8062 IF WI$(NF)I="" THEN WIS(NF)="X" 

8065 PRINT 


8070 INPUT "{RVSON 
PACE}" DAS (NF) 
8072 IF DA$(NF)="" THEN DAS(NF)="X" 

8075 PRINT:PRINT:PRINT 

8078 AN(NFI=NF 

8080 PRINT "{RVSONIWEITERE{SPACEZYNEUEXSPACE2 SK 
3UNDEN{SPACE2I--{SPACE SI SPACE RVSOFF}" 

8081 PRINT "{RVSON SMIENUELSPACEI8I--{SPACE SF>1 
XRVSOFF>" 

8082 GET WS: IF W$="" THEN 8082 

8083 IF W$="J" THEN 8000 

8084 IF W$=CHR$(133) THEN 8300 

8085 GOTO 8082 

8200 REM 

8210 PP(VI=X 

8220 Y=Y+1 

8230 GOTO 8011 

8300 REM 

8310 EN=PP (Y-1) 


STYELEFON-NR. {SPACES RVSOFF S 











CSompute mib 


<250> 
<207> 


<113> 
<227> 


<244> 
<242> 
<147> 
<132> 
<12> 

<209> 
<245> 
<226> 
<50> 

<170> 
<20> 


<227> 


<67> 

<165> 
<236> 
<193> 
<238> 
<165> 
<179> 
<159> 
<181> 
<196> 
<158> 


<94> 

<248> 
<231> 
<164> 


<233> 
<2> 
<199> 
<13> 
<59> 
<7> 


<25>_ 
<22> 


<110> 
<40> 
<26> 


<91> 
<177> 
<30> 


<4> 
<228> 
<37> 


<185> 
<123> 
<47> 


<131> 
<105> 
<57> 


<254> 
<206> 
<103> 
<82> 


<203> 


<15> 
<98> 
<211> 
<27> 
<23> 
<183> 
<95> 
<161> 
<136> 
<27> 
<103> 
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programme 


8320 GOTQ 35 
8400 REM 
8410 FRINT "{CLEARY" 

8420 FRINT "{RVSON SO3HNEISPACE SNYAMENISPACE>KE 
INE{SPACE SRYEGISTRIERUNG{SPACE}!!!{RVSOFF}Y" 
8425 AN{NF)I=O 

8425 NF=0 

8430 PRINT 

8440 GOTO 8004 

8997 REM 

9000 REM *## LOESCHUNG ALLE ####xun%%%# 

9001 REM 

9003 PRINT "{CLEAR}"=PRINT "{RVSONFALLE{SPACE SK 
3UNDEN{SPACE}LOESCHEN{SPACE2I--{SPACE SI SPACE R 
VSOFF}" 

9005 PRINT "{RVSON SHYENUE{SPACEITI--{SPACE SF} 
{SPACE RVSOFF}" 

9006 GET W$: IF W$="" THEN 9006 

9007 IF W$="J" THEN 9020 

9008 IF W$=CHR$ (135) THEN 35 

9009 GOTO 7006 

9020 ELR 

9030 RUN 20 = 
99797 REM 

10000 REM #*# LOESCHUNG 1 KUNDE #####%#%# 

10001 REM 

10002 PRINT "{CLEAR}"z=PRINT "{RVSON SWIELCHER{S 
PACE SK}YUNDE{SPACE}YSOLL SPACEIGELOESCHT {SPACEIWE 
RDEN{SPACE2}?" 
10005 PRINT: INPUT N$' 

10010 FOR X=1 TO EN 

10020 IF LEFT$(NA$(X) „LEN{N$S))=N$ THEN 10060 
10030 NEXT X 

10040 FRINT:FRINT "{RVSON SKYUNDETSPACEINICHTISP 
ACE}GEFUNDEN" n 

10050 PRINT 

10051 PRINT "{RVSQON SHYIAME{SPACEINEUTSPACEYEINGE 
BEN{SPACE}! !!{RVSOFF 

10052 FOR T=1 TO 1500:NEXT T 

10053 GOTO 35 

10055 FRINT 
10060 PRINT 
10070 PRINT 



































"{CLEARY" 
"{SK}UNDEN-NUMMER" 3 AN (X) =PRINT=SPRINT 











NA$ (X) 

10075 FRINT 

10080 FRINT AD$ (X) 3 "{SPACEY"ZTE$S(K) 

10090 PRINT 

10100 PRINT AD$(X) 3 "{SPACEI"ZWISE(X) 

10105 FRINT 

10110 PRINT "{ST}ELEFON-NR. "3 "{SPACE}"3DA$S(X) 
10112 PRINT=PRINT 

10114 FRINT "{RVSONYSOLL{SPACE SKYUNDEXSPACEIGEL 








OESCHT{SPACE}WERDEN{SPACEI--{SPACE SJ SPACE RVSO 
EF}” 

10115 PRINT "{RVSON SH}FENUEISPACE233--{SPACE SF} 
1{RVSOFF}Y" 

10116 GET W$: IF W$="" THEN 10116 

10117 IF W$="J" THEN 10120 

10118 IF W$=CHR$(133) THEN 35 

10117 GDTO 10116 

10120 NA$(X)I="" 

10130 AN(X)=O 

10140 ADFI(X)I="" 

10150 TES(XI="" 

10180 AD$(X)="" 

10170 WI$(X)= 
10180 DAS (X)I="" 
10200 GOTO 35 
10997 REM 

11000 REM *##+#* ENDE 
11001 REM 

11002 PRINT CHR$ (142) 

11010 PRINT "{CLEAR DOHNS RIGHT2 SPACET7T RVSON SP 


ACE3YMIT{SPACEIGOTOTSPACEIS3STSPACEIKOMMEN{SPACES 
RVSOFF}Y" 

11011 PRINT "{HOHE DOUHNI1O RIGHT2 SPACE7 RVSON SP 
ACE23SIETSPACEIOHNE TSPACEIDATENVERLUSTISPACE2 
SOFF>" 

11012 FRINT "{HOHE DOHNI12 RIGHT2 SPACET7T RVSON SP 
ACEYIN'STSPACEFHAUPTMENUE {SPACE} ZURUECKTSPACE RVY 
SOFF}" { 

11020 PRINT "{HOHE DOHNI16>" 

11025 FRINT "GOTO{SPACEI3S" 

11030 PRINT "{UP4}":END 

11997 REM 

12000 REM #*## AUSWAHL PLZ/NAME ###u#0%%# 









KERFRHRERURHEHTURRERRR 




















<46> 
<127> 
<24> 


<111> 
<72> 

<186> 
<167> 
<101> 
<217> 
<19> 

<219> 


<132> 


<222> 
<218> 
<146> 
<41> 
<173> 
<251> 
<231> 
<197> 
<8> 
<199> 


<4> 
<196> 
<64> 
<149> 
<135> 


<155> 
<2> 


<250> 
<535> 
<250> 
<7> 
<145> 


<202> 
<27> 
<217> 
<42> 
<109> 
<57> 
<130> 
<127> 


<245> 


<226> 
<247> 
<33> 

<131> 
<38> 

<89> 

<183> 
<102> 
<133> 
<144> 
<164> 
<139> 
<141> 
<176> 
<16> 

<178> 
<214> 


<114> 
<230> 


<181> 
<a5> 
<82> 
<142> 
<156> 
<143> 


12001 REM e 
12002 PRINT "{CLEAR DOHN3 RVSON SP RVSOFF}YUSTLEI 
TZAHL" PRINT 


12003 PRINT "{RVSON SN RVSOFF>AME" 

12008 GET W$:IF W$="" THEN 12008 

12009 IF W$="P" THEN 12015 

12010 IF W$="N" THEN 12200 

12011 GOTO 12008 

12015 PRINT=PRINT 

12016 PRINT "{RVSON SSHORTIERUNG{SPACEINACHLSPAC. 


E. SPIOSTLEITZAHL: {RVSOFF}" 

12017 PRINT:PZ$="" 

12020 INPUT "{RVSON SWYELCHETSPACE SPIOSTLEITZAH 
L{SPACE&S RVSOFF SPACE}I"3PZ$ 

12022 PRINT 

12025 L=LEN(PZ$) 

12040 PRINT "{CLEAR}"3:PRINT "{RVSUN SP}OSTLEITZ 
AHLEN: {RVSOFF SPACE3Y"3PZ$; ". ."sPRINTSPRINT 








12041 FOR X=1 TO EN 

12042 IF LEFT$(AO$(X) ,LI<>PZ$ THEN 12046 

12043 IF X<=9? THEN 12045 

12044 PRINT AN(X)3"ISPACE4}"3NA$S(X):GOTO 12046 
12045 PRINT "ISPACEY"ZAN(X) 3 "TSPACELY"ZNAS(K) 
12046 NEXT X ’ 
12047 PRINT:PRINT "{RVSON SLYISTETSPACEIDRUCKENT 








SPACE3I--ISPACE SI SPACE RVSOFF}" 

12048 PRINT "{RVSON SHIENUESPACEI1I--ISPACE SF} 
1{RVSOFFY" 

12050 GET W$:IF W$="" THEN 12050 

12051 IF W$="J" THEN 12055 

12052 IF W$=CHR$(133) THEN 35 

12053 G0TO 12050 

12055 OPEN 1,4,7 

12058 FOR X=1. TO EN 

12060 IF LEFT$(AD$S(X) ,LI<>PZ$ THEN 12100 

12080 PRINT#1 ,NA$(X) 3CHR$ (141) TAB(30) "£SKID-NR. : 
XSPACE}"ZAN(X) :PRINT#1 

12082 PRINT#1,AD$(X) 3 "{SPACE2I"3TE$(X) :PRINT#1 
12084 PRINT#1,AD$ (X) 5 "{SPACE2Y"3WI$ (X) :PRINT#1:P 
RINT#1 
12100 
12110 
12120 
12200 
12210 PRINT:PRINT 

12215 PRINT "{RVSON SSIORTIERUNG{SPACEINACH£SPAC 
E SNIAMEN: {RVSOFF}" 
12216 PRINT 

12220 INPUT "{RVSON SHYELCHETSPACE SAYNFANGSBUCH 
STABEN{SPACE2 RVSOFF SPACE}";AB$ 

12222 PRINT 

12230 L=LEN(AB$) 

12243 PRINT "{CLEAR}"3:PRINT "{RVSON SNIAMEN{SPA 
CEIMITISPACE SAYNFANGSBUCHSTABEN{RVSOFF SPACE3}" 
;AB$:PRINT:PRINT 

12244 FOR X=1 TO EN 

12245 IF LEFTS(NA$(X) ,LI<>AB$ THEN 12249 

12246 IF X<=9 THEN 12248 

12247 PRINT AN(X) 5 "{SPACE43"3NA$S (X) :GOTO12249 
12248 PRINT" {SPACEY"ZAN(X) 3 "{SPACES3"3NAS(X) 
12249 NEXT X:PRINT=PRINT 

12250 PRINT "{RVSON SL}YISTEXSPACEIDRUCKEN{SPACES 
3--ISPACE S4 SPACE RVSOFF}Y" 

12251 PRINT "(RVSON SHMYENUE{SPACE13I--SPACE SF} 
1CRVSOFFY" 





NEXT X 

CLOSE 1 
GOTO 35 
REM 


’ 























12253 GET W$:IF W$="" THEN 12253 

12254 IF W$="J" THEN 12258 

12255 IF W$=CHR$(133) THEN 35 

12256 GOTO 12253 

12258 OPEN 1,4,7 

12260 FOR X=1 TO EN 

12261 IF LEFT$(NA$(X) ,LI<>AB$ THEN 12300 


12270 PRINT#1 ,NA$(X) 5 CHR$ (141) TAB(30) "{SK}D-NR. : 
{SPACE} "ZANCX)SPRINT#1 

12272 FRINT#1,AD${X) 3 "{SPACE23"3TE$CX) :PRINT#1 
12274 PRINT#1 ,AD$(X) 5 "{SPACE2Y"3WI$ (X) =PRINT#1:P 
RINT#1 5 
12300 
12310 
12350 
13000 
13010 
13020 


NEXT X 
CLOSE 1 
G0T0 35 
PRINT "{CLEARY"3 
DIRECTORY 
PRINT "{DOHN2 SPACES STIASTETSPACE6SY" 
13030 GET W$: IF W$="" THEN 13030 
13040 60T0 35 
ENDE DES LISTINGS 


CSompube mib 


<159> 


<222> 
<497> 

<127> 
<238> 
<172> 
<154> 
<245> 


<835> 
<98> 


<162> 
<189> 
<176> 


<162> 
<55> 
<104> 
<67> 
<74> 
<141> 
<i11> 


<140> 


<123> 
<117> 
<37> 
<25> 
<174> 
<195> 
<72> 
<173> 


<79> 
<91> 


«773 
<165> 
<127> 
<21> 
<102> 
<185> 


<194> 
<128> 


<247> 
<134> 
<165> 


<14> 
<2> 
<47> 
<65> 
<152> 
<88> 
<4> 


<182> 


<176> 
<140> 
<a5> 
<228> 
<147> 
<140> 
<18> 
<a5> 


<13> 
<25> 


<11> 
<110> 
<72> 
<252> 
<635> 
<242> 
<173> 
<39> 
<176> 














Easy-Basic ist keine Befehlserwei- 
terung im üblichen Sinne, bei der 
die Programmierung von Sound 
und Grafik unterstützt wird. 
Vielmehr ist dieses Programm zu 
dem Zweck geschrieben worden, 
das Einprogrammieren von Basic- 
Programmen wesentlich zu ver- 
einfachen. Die Idee, für ein Pro- 

ramm und deren Umsetzung 

leibt freilich immer noch Ihre 
Aufgabe, jedoch nimmt Ihnen 
EASY BASIC einen unnützen 
Teil dieser Arbeit ab. Durch viele 
komfortable und nützliche Befeh- 
le wird die Zeit, die Sie benötigen 
um ein Programm zu schreiben 
um ein Wesentliches verkürzt. 
Viele Befehle sind auch im nor- 
malen Basic gar nicht möglich. 
EASY BASIC ist vollkommen ab- 
sturzsicher. 


Sollte sich das SYSTEM trotzdem 
einmal ”aufhängen” oder stürzt 
IHR Programm ab, an dem Sie 
Stunden um Stunden geschrieben 
haben, so ist auch das klein 
Grund zum Verzweifeln, denn 
für diesen Fall hat EASY BASIC 
die RESTORE-Taste belegt. Ein 
Druck auf diese Taste genügt und 
schon wird der Bildschirm ge- 
löscht und der Curser meldet sich 
mit einem freundlichem REA- 
DY. Bei ganz harten Fällen, also 
wenn auch die RESTORE-Taste 
versaht, hilft immer noch ein 
leichter Touch auf den RESET 
BUTTON (falls vorhanden), wo- 
bei sich der selbe Effekt einstellt 
wie bei RESTORE. Und noch et- 
was ist zu bemerken, EASY BA- 
SIC ist zu 100% in Maschinenco- 
de geschrieben. Das hat den Vor- 
teil, daß der volle Basic-Speicher- 
platz erhalten bleibt und das EA- 
SY BASIC vor dem Überschrei- 
ben von Basic geschützt ist. 


EASY BASIC in Stichworten: 

- 25 neue Befehle mit insgesamt 

- 32 Funktionen 

- 100% Maschinencode 

- kein Speicherplatzverlust 

- keine Geschwindigkeitseinbu- 
ßen 

- einfache Bedienung 

- komfortable Systemmeldungen 

- Vollkommen absturzsicher, da- 
durch keine Gefahr, Program- 
me zu verlieren 

- liegt im geschützten Bereich 
($C000 - $D000) 

- alle normalen Befehle sind wei- 
terhin nutzbar 


- arbeitet sowohl mit Disk als 
auch mit Tape 

- größtenteils in Deutsch gehal- 
ten, vor allem die SYSTEM- 
Meldungen 


EASY BASIC Befehlsliste: 
Jeder Befehl von EASY BASIC 
wird mit einem Pfeil nach links 
(Taste links oben) eingeleitet. Di- 
rekt dahinter wird der jeweilige 
Buchstabe und eventuell nötige 
Parameter eingegeben. 

(=Taste Pfeil nach links setzen) 
(=) 1 = ändern der Hintergrund- 
farbe 

(-)2 = ändern der Vordergrund- 
farbe 

(-)A (Schrittweite) = Automati- 
sche Zeilennummerierung. Folgt 
auf das ”A” keine Zahl für den 
Zeilenabstand, so wird dieser mit 
Zehn vorausgesetzt. Dieser Befehl 
numeriert ein Basicprogramm, 
das heißt, es wird am Anfang je- 
der Zeile automatisch eine Zeilen- 
nummer ausgegeben. 
(*-)B(E/A) = Anzeige des noch 
freien Speicherplatzes (nach je- 
dem RETURN in der obersten 
Zeile). 

Dieser Befehl benötigt auf jeden 
Fall ein ”E” oder ein ”A” als Para- 
meter (A für Ausschalten, E für 
Einschalten). 

(=) D = Ausgabe des DIREC- 
TORYS der gerade im Laufwerk 
befindlichen Diskette. Natürlich 
ohne Programmverlust. (-) F 
(E/A) = Fehlerblockade ein- 
bzw. ausschalten. Dieser Befehl 
ist äußerst nützlich beim Auste- 
sten von Programmen, denn hier- 
durch wird der Computer dazu 
veranlaßt, bei einem Fehler im 
Programm automatisch den näch- 
sten Befehl zu bearbeiten. Da- 
durch wird ein normalerweise 
nicht lauffähiges Basicprogramm 
doch noch lauffähig. 

(-) G (E/A) = Grafik-Modus 
ein- bzw. ausschalten. Dieser Be- 
fehl ist dazu gedacht, das man 
schnell mal auf den Grafik-Modus 
umschalten kann, ohne durch 
lange POKE-Befehle Zeit zu ver- 
lieren. Er dient hauptsächlich als 
Kontrollfunktion, um den Inhalt 
des Grafik-Speichers zu überprü- 
fen. Jedoch arbeitet er auch inner- 
halb eines Programmes, um bei- 
spielsweise die Titelgrafik eines 
Spieles einzuschalten. (-) H = 
Help. Dieser Befehl gibt dem Be- 
nutzer eine Auflistung sämtlicher 


Programme. 
»Easy Basic System« — eine neue Idee!!! 


EASY BASIC Befehle, in über- 
sichtlich geordneter Weise auf 
den Bildschirm aus. 


EASY BASIC Befehlsliste 
Teil I: 


(-)I = INITIAL DISK. Die ge- 
rade im Laufwerk befindliche 
Diskette wird Initialisiert, so daß 
im Normalfall keine Disk Errors 
auftreten können (HEADER und 
BAM der Disk werden neu ge- 
lesen). 


(-)K = SPACEKILLER. Dieser 
Befehl ist sehr nützlich, wenn es 
darum geht, möglichst wenig 
Speicherplatz zu verbrauchen, 
denn er ”killt” alle in einem Pro- 
gramm überflüssigen Spaces 
(Lehrzeichen). Auf diese Weise 
können in vielen Programmen 
noch etliche BYTES eingespart 
werden, wenngleich dies auch 
nicht gerade zur Übersichtlich- 
keit des Programmes beiträgt. 


(-) M = MEMORY DUMP. 
Mit Hilfe des MEMORY DUMP 
können Sie sich den Inhalt des ge- 
samten Speichers, ausgegeben in 
ASCII Zeichen, ansehen. Nach 
Eingabe des Befehles wird der 
Bildschirm gelöscht und es er- 
scheint in der obersten Zeile die 
Meldung ”MEMORY DUMP: $ 
000. Das bedeutet, daß der ME- 
MORY DUMP ab der Hexadezi- 
mal Adresse $ 000 gestartet wird. 
$ 000 deshalb, weil ja noch keine 
weitere Anweisung erfolgt ist. Sie 
haben jetzt die Möglichkeit den 
MEMORY DUMP entweder vor- 
wärts oder rückwärts zu starten. 
Dies geschieht mit ”F1” (rück- 
u! und F7” (vorwärts). Beim 
Druck auf eine dieser Tasten wer- 
den jeweils die nächsten 256 BY- 
TES im ASCII-CODE ausgege- 
ben. Während des ganzen ME- 
MORY DUMBPES haben Sie jeder 


Zeit die Möglichkeit diese Routi- - 


ne zu verlassen. Dazu genügt ein 
Druck auf die ”Space-Taste” (das 
Titelbild erscheint). Sind die er- 
sten 4096 BYTES ausgeben er- 
scheint wieder die Meldung ”ME- 
MORY DUMP: $xxxx”, jedoch 
steht jetzt anstelle der vier ”x” die 
neue MEMORY’DUMP Starta- 


dresse. 


(*)O = OLD. OLD stellt ein 
mit new gelöschtes Programm 
wieder lauffähig und vorallem 
wieder abspeicherbar zur Ver- 


Compute mik 


fügung, so daß Sie quasi nie ein 


Programm verlieren können. 


EASY BASIC Befehlsliste 
Teil II: 


(-) Q = QUIT SYSTEM. Zu 
diesem Befehl ist eigendlich nicht 
vie] zu sagen, nur soviel, daß diese 
Funktion die einzige Möglichkeit 
ist (abgesehen vom Ausschalten 
des Rechners) EASY BASIC zu 
verlassen. Ein eventuell vorhan- 
denes Programm geht dabei ver- 
loren. Deshalb wird bei ”QUIT 
SYSTEM” noch einmal nachge- 
fragt, ob Sie sich auch ganz sicher 
sind. Die Frage des Computers ist 
mit einem ”J” oder einem ”N” ge- 
folgt von RETURN zu beant- 


worten. 


(=) R (5/7) = RENAME KEYS. 
Mit RENAME KEYS können 
zwei der vier Funktionstasten neu 
belegt werden. Bei (+) R 5 kann 
”F5” neu belegt werden, bei (*-) 
R 7 entsprechend ”F7”. Die neue 
Belegung darf maximal 5 Zeichen 
lang sein, was in abgekürzter 
Form auch für den längsten Be- 
fehl reicht. Die neue Belegung 
wird dann als Befehl im Direkt- 
modus, bei einem Druck auf ”F5” 
oder ”F7” ausgeführt. Diese Ta- 
sten lassen sich sowohl mit nor- 
malen als auch mit EASY BASIC 
Befehlen belegen. 


(-) S = DISK STATUS. Tritt 
beim Umgang mit der Floppy ein 
Error auf und Sie wissen nicht 
woran es liegen könnte oder Sie 
wollen einfach nur wissen, wel- 
ches DOS Ihr Laufwerk besitzt, 
so genügt die Eingabe dieses Be- 
fehls und Sie ken die ge- 
wünschten Informationen in 
schön geordneter Weise auf dem 
Bildschirm serviert. Wollen Sie 
die Informationen über das 
Floppy-DOS abrufen, so müssen 
Sie dieses jedoch vorher kurz aus 
- und wieder einschalten. 


(-) T(E/A) = Tastaturpieps ein 
bzw. ausschalten. Wie die großen 
Personal-Computer es meist se- 
rienmäßig eingebaut haben, so 
bietet auch EASY BASIC diese 
Routine, die bei jedem Druck auf 
eine der Tasten einen Piepton 
hervorruft, so daß Sie auch 
blind” programmieren können. 
Die Routine kann wahlweise 
(”E”) ein bzw. (”A”) ausgeschaltet 


werden. 
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EASY BASIC Befehlsliste 
Teil IV: 


(-) V (E/A) = VOLUMEN 
(Lautstärke) ein- bzw. ausschal- 
ten. ”VOLUMEN” dient haupt- 
sächlich nur zum Austesten von 
Soundroutinen, kann aber auch 
innerhalb von Programmen ge- 
nutzt werden. ”VOLUMEN” 
schaltet die Lautstärke entweder 
ein (Lautstärke = 15) oder aus 
(Lautstärke = 0). 


(<=) Z (Parameter) = Zeilendele- 
te. Dient zum schnellen Löschen 
von einzelnen Zeilen oder ganzen 


‚programme. 


Zeilenblöcken. Als Parameter 

müssen noch eingegeben werden 

1. ”xxx - xxx” = löschen der 
Zeilen xxx bis xxx einschließ- 
lich 

2. ”- xxx” = löschen. von An- 
fang bis Zeile xxx einschließ- 
lich 

3. ”xxx -” = löschen von Zeile 
xxx bis Ende. 

(*) N = NEUSTART. EASY 

BASIC wird neu gestartet, das Ti- 

telbild erscheint, die Diskette 

wird INITIALISIERT und es er- 

scheint ein freundliches READY. 

Pro- 


gramme gehen dabei jedoch nicht 
verloren. 


Desweiteren hat EASY BASIC 
die Funktionstasten ”F1”, ”F3”, 
”F5” und ”F7” mit Programmier- 
hilfen belegt. Bei einem Druck 
auf ”F1” oder ”F3” erscheint in 
der obersten Zeile entweder ”LO- 
AD”... ”,8,1” oder ”SAVE” ... 
» 8,1”. Bei beiden erscheint der 
Cursor nach den Anführungszei- 
chen, so daß Sie bei LOAD und 
SAVE nur noch den Filename 
eingeben müssen. Bei ”F5” und 
”F7” erscheint die jeweilige Ta- 





stenbelegung in der obersten Zei- 
le. Diese Belegung wird als Befehl 
sofort ausgeführt. 


Schließlich und endlich die letzte 
Funktion von EASY BASIC, die 
Belegung der SHIFT-Taste. Diese 
wirklich sehr nützliche Funktion 
wird jeder Programmierer wohl 
am meisten brauchen, denn bei ei- 
nem Druck auf diese Taste wird 
der LIST-Vorgang angehalten. 
Dies geschieht, solange Sie die 
SHIFT-Taste gedrückt halten 
(oder SHIFT LOOK). Sobald Sie 
die Taste loslassen, läuft das Li- 
sting weiter. 








»Jetzt weißt Du, wofür Easy Basic gut ist!« 





C-64 LISTING + CHECKSUMMEN (C V1.0) 


30000 FOKES3280 ‚0: FOKESS281 ,0 

30010 PRINT"{CLEAR HOME YELLOWYBITTEISPACEIWARTE 
NISPACE} „" 

30020 PRINT" {DOHN RIGHTS CYANYEASY-BASIC{SPACEIS 
YSTEM" 

S0030 PRINT"{DOHN RIGHTS YELLOWYWIRD{ISPACEYINITI 
ALISIERTISPACEF ! I!" 


31010 FORI=0T03953:READA: POKE49152+1,A:S=5+A 








31011 IFS9SI-I< LOOOTHENPRINT"{HOHE DOHNI1S RIGHTI 


2 SPACE10Y" , 

31012 IF3953-I< 1OOTHENPRINT"{HOHE DOHN15 RIGHT 
SPACE103" 

31013 IFS9SS-I<1OTHENPRINT"CHOHE DOUN14 RIGHTI1O 
SPACE103" 

31020 FRINT"{HOME DOHN15 RIGHT12>"3953-1 

31030 NEXT 

31050 IFS<>4105S8THENPRINT" CLEAR HOME HHITEIFEH 

LER{SPACE}INTSPACEIDATAS{SPACE} ! !!"zEND 

31060 POKE43,0:FOKE44 , 192: POKE45,117:POKE46 ,207: 

CLR 

31070 SAVE"EASY-BASIC/MC" „8,1 

31160 SYS49152 

32000 DATA169,0,141,32,208,169,11,141,33,208,32, 

68,229,162,0,189,29,192,32,210 

32001 DATA255,232,201,0,208,245,76,222,192,147,1 

9,159,29,29,29,42,42,42,42,42 

32002 DATA42,42,42,42,42,42,42,42,42,42,42,42,42 
‚„42,42,42,42,42,42,42,42,42,42 

32003 DATA42,42,42,42,42,13,29,29,29,42,42,42,42 
„42,32,158,84,72,69,32,69,65 











<247> 
<75> 
<174> 


<152> 
<195> 


<a6> 

<173> 
<46> 

<113> 
<49> 

<100> 
<119> 
<234> 
<219> 
<188> 
<180> 
<122> 


<34> 


32004 DATAB3,89,45,66,65,83,73,67,32,93,89,83,84 
»69,77,32,159,42,42,42,42,42 

32005 DATA13,29,29,29,42,42,42,42,42,42,42,42,42 
‚42,42,42,42,42,42,42,42,42,42 

32006 DATA42,42,42,42,42,42,42,42,42,42,42,42,42 
‚42,13,29,29,29,42,42,32,144 

32007 DATA40,67,41,32,66,89,32,65,83,45,83,79,70 
‚84,87,65,82,69,32,73,78,32,49 

32008 DATAS7,56,54,32,32,159,42,42,13,29,29,29,4 
2,42,42,42,42,42,42,42,42,42 

32007 DATA42,42,42,42,42,42,42,42,42,42,42,42,42 
‚42,42,42,42,42,42,42,42,42,42 

32010 DATA13,0,169,7,141,134,2,169,240,141,8,3,1 
69,192,141,9,3,76,45,203,32,115 

32011 DATAO,201,95,240,3,76,231,167,32,115,0,201 
,49,240,76,201,50,240,75,201 

32012 DATA71,240,74,201,70,240,73,201,78,240,72, 
201,83,240,71,201,73,240,70,201 

32013 DATA79,240,69,201,77,240,68,201,75,240,67, 
201 ,65,240,66,201,90,240,65,201 

32014 DATA66,240,64,201,68,240,63,201 ,86,240,62, 
201,72,240,61,201,82,240,60,201 

32015 DATAB4,240,59,234,234,234,76,254,205,234,2 
34,76,134,193,76,140,193,76,146 

32016 DATA193,76,186,193,76,87,194,76,181,194,76 
»243,194,76,69,195,76,162,205 

32017 DATA76,178,196,76,96,197,76,233,197,76,40, 
199,76,40,200,76,150,200,76,252 

32018 DATA200,76,52,204,76,42,205,234,234 ,234,23 
8,32,208,76,228,167,238,33,208 

32019 DATA76,228,167,32,115,0,201,69,240,7,201,6 


Compute mi 


<130> 
<7> 
<123> 
<190> 
<14> 
<129> 
<240> 
<12> 
<252> 
<241> 
<80> 
<1> 
<160> 
<161> 


<32> 





2187 





2/87 


5,240,16,76,8,175,169,29,141 

32020 DATA24,208,169,56,141,17,208,76,228,167,16 
9,21,141,24,208,169,27,141,17 

32021 DATA208,76,228,167,32,115,0,201,69,240,7,2 
01,65,240,37,76,8,175,169,213 

32022 DATA160,193,141,0,3,140,1,3,76,247,193,138 
»48,3,76,222,193,76,116,164,32 

32023 DATA6,169,136,32,115,0,208,250,76,225,167, 
167,139,141,0,3,169,227,141,1 

32024 DATA3,76,37,194,162,0,189,7,194,32,210,255 
„232,201,0,208,245,76,228,167 

32025 DATA158,70,69,72,76,69,82,45,66,76,79,67,7 
5,65,68,69,32,65,75,84,73,86 

32024 DATA73,69,82,84,32,33,13,0,162,0,189,53,19 
4,32,210,255,232,201,0,208,245 

32027 DATA76,228,167,158,70,69,72,76,69,82,45,66 
,76,79,67,75465,68,69,32,65,85 

32028 DATABS,71,69,83,67,72,65,76,84,69,94,32,33 
„13,0,32,0,192,76,228,167,169 

32029 DATA1,162,208,160,255,32,189,255,169,1,162 
.8,160,0,32,186,255,32,192,255 

32030 DATA176,2,169,0,133,255,169,1,32,195,255,1 
73,255,0,201,5,240,3,96,162,0 

32031 DATA187,149,194,32,210,255,232,201,0,208,2 
45,76,228,167,158,65,67,72,84 

32032 DATABS,78,71,44,70,76,79,80,80,89,32,78,73 
,67,72,84,32,66,69,82,69,73,84 

32033 DATAS2,33,13,0,32,179,238,162,0,189,227,19 
4,32,210,255,232,201,0,208,245 

32034 DATA169,8,133,186,32,180,255,169,111,133,1 
85,32,150,255,32,165,255,32,210 

32035 DATA255,201,13,208,246,32,171,255,76,228,1 
67,158,69,73,83,75,32,83,84,65 

32036 DATAB4,85,83,32,58,32,0,32,93,194,162,0,18 
9,41,195,32,210,255,232,201,0 

32037 DATA208,245,169,1,162,8,160,15,32,186,255, 
169,0,32,189,255,32,192,255,162 

32038 DATA1,32,201,255,169,73,32,210,255,32,204, 
255,169, 1,32, 195,255,76,228, 187 

32039 DATA158,68,73,83,75,32,87,73,82,68,32,73,7 
8,73,84,73,65,76,73,83,73,69 

32040 DATAB2,84,32,33,13,0,162,0,189,135,195,32, 
210,255,232,201,0,208,245, 160 

32041. DATA3,200,177,43,208,251,200,200,152,160,0 
„145,43,165,44,200,145,43, 160 

32042 DATAO,132,59,162,0,200,208,2,2”9,60,177,59 
»208,245,232,224,3,208,242,200 

32043 DATA208,2,230,60,132,32,164,60,132,46,76,2 
28,167,158,66,65,83,73,67,32 

32044 DATA80,92,79,71,82,65,77,77,32,73,83,84,32 
„82,69,71,69,78,69,82,73,69,82 

32045 DATAB4,32,33,13,0,1,8,160,0,162,0,169,0,23 
4,234 ,234,165,0,189,197,195,32 

32046 DATA210,255,232,224,25,208,245,76,222,195, 
147,19,17,158,77,69,77,79,82 

32047 DATA89,32,69,85,77,80,58,32,32,36,32,48,48 
„48,13,13,165,203,201,3,240,11 

32048 DATA201,4,240,10,201,60,240,9,76,222,195,7 
6,135,196,76,156,196,76, 182,205 

32049 DATA234,185,27,196,141,55,4,200,185,27,196 
„141,70,196,200,192,34,208,5 

32050 DATA160,0,208,234,234,162,0,32,179,238,232 
»208,250,76,60,196,48,0,49,16 

32051 DATAS0,32,51,48,52,64,53,80,54,96,55, 112,5 
6,128,57,144,1,160,2,176,3,192 

32052 DATA4,208,5,224,6,240,0,162,0,165,0,152,72 
‚„160,15,189,0,33,32,210,255,232 

32053 DATA224 ,255,208,245,238,70,196,136,208,22, 
104,168, 165,203,201,3,240,11 

32054 DATA201 ,4,240,7,201,60,240,3,76,87,196,76, 
181,195,165, 203,201 ,3,240,11 

32055 DATA201,4,240,7,201,60,240,11,76,107,196,1 
69,0,141,145,2,76,68,196,76,182 

32056 DATA205,169,200,141,255,195,141,6,196,169, 
34,141,8,196,169,0,141,12,196 

32057 DATA76,249,195,169,136,141,255,195,141,6,1 
96,169,2,141,8,196,169,34,141 

32058 DATA12,196,76,249,195,234,165,0,162,0,189, 
196,196,32,210,255,232,201,0 

32059 DATA208,245,76,224,196,13,158,83,80,65,67, 
69,32,75,73,76,76,69,82,32,65 

32060 DATA75,84,73,86,73,69,82,84,32,33,0,136,16 
9,0,166,43,202,134,167,134,169 

32061 DATA166,44,134,168,134,170,160,0,132,2,177 
»167,240,31,201,34,208,8,170 

32062 DATA165,2,73,255,133,2,138,166,2,208,4,201 





<59> 
<240> 
<B4> 
<155> 
<208> 
<223> 
<50> 
<69> 
<105> 
<192> 
<140> 
<191> 
<240> 
<74> 
<150> 
<241> 


<134> 


x192> 


<108> 
<140> 
<77> 
<213> 
<228> 
<167> 
<162> 
<70> 
<253> 
<65> 
<167> 
<105> 
<19> 
<220> 
<577 
<142> 
<202> 
<39> 
<180> 
<&2> 
<219> 


<200> 


‚<22> 


<2&> 


<195> 


programme. 


,32,240,5,145,169,32,61,197,32 
32053 DATA68,197,76,243,196,160,0,132,7,162,5,17 


‚7,167,145,169,240,16,132,7,32 


32064 DATA61,197,32,68,197,202,208,239,132,2,76, 
243,196,230,7,165,7,201,3,240 

32065 DATA17,76,36,197,230,169,208,2,230,170,96, 
230,167,208,2,230,168,96,32,61 

320646 DATA197,166,169,164,170,134,45,132,46,32,8 
9,166,32,51,165,76,134,227,234 

32067 DATA162,0,165,0,189,114,197,32,210,255,232 
»201,0,208,245,76,139,197;13 

32068 DATA158,65,85,84,79,78,95,77,66,69,82,32,6 
5,75,84,73,86,73,69,82,84,32 

32069 DATAS3,0,32,115,0,208,4,162,10,208,3,32,15 
8,183,142,197,197,169,167,141 

32070 DATA4,3,169,197,141,5,3,76,174,167,104,72, 
201,161 ,208,57,136,177,122,208 

32071 DATA13,169,124,141,4,3,169,165,141,5,3,76, 
116,164,165,20,166,21,24,105 

32072 DATA11,144,1,232,133,99,134,98,162,144,56, 
32,73,188,32,223,189,32,135,180 

32073 DATA32,130,183,132,198,177,34,153,119,2,13 
6,16,248,76,124,165,162,0,32 

32074 DATA115,0,157,28,199,232,224,11,208,245,32 
„68,229,173,33,208,141,134,2 

32075 DATA162,0,165,0,189,17,198,32,210,255,232, 
201,0,208,245,76,40,198,147,19 

3207& DATAB3,89,83,53,48,55,55,56,44,32,32,32,32_ 
„32,32,32,32,32,32,32,0,162,0 

32077 DATA165,0,199, 17, 198,201,171,240,3,232,208B 
„246,169,45,157,17,198,162,0 

32078 DATA145,0,189,17,198,32,210,255,232,201,0, 
208,245,169,13,141,120,2,169 

32079 DATA19,141,119,2,169,2,141,198,0,234,32,25 
3,174,32,121,0,144,6,240,4,201 

32080 DATA171,208,23,32,107,169,32,19,166,165,95 
„133,25,165,96,133,26,32,121 

32081 DATAO,240,4,201,171,240,5,162,11,76,58,164 
‚32,115,0,32,107,169,208,243 

32082 DATA165,20,5,21,208,8,169,255,133,20,133,2 
1,208,6,230,20,208,2,230,21,32 

32083 DATA19,166,165,95,133,36,165,96,133,37,56, 
165,36,229,25,165,37,229,26,144 

32084 DATA201,165,45,229,36,133,95,165,46,229,37 
„133,96,24,165,25,101,95,133 

32085 DATA45,165,26,101,96,133,46,160,0,177,36,1 
45,25,230,25,208,2,230,26,230 

32086 DATA36,208,2,230,37,56,165,95,233,1,133,95 
,165,96,233,0,133,96,16,225,32 

32087 DATAB9,166,32,51,165,32,68,229,162,0,165,0 
„189,11,199,32,210,255,232,201 

32088 DATAO,208,245,76,145,227,19,13,13,158,66,& 
5,83,73,67,32,90,69,73,76,69 

32087 DATA78,32,71,69,76,79,69,83,67,72,84,32,33 
„0,32,115,0,201 ,65,240,7,201 

32090 DATA69,240,71,76,8,175,169,131,141,2,3,169 
„164,141,3,3,162,0,165,0,189 

32091 DATAB2,199,32,210,255,232,201,0,208,245,7& 
‚228,167,13,158,83,80,69,73,67 

32092 DATA72,69,82,80,76,65,84,90,32,65,78,90,69 
,73,71,69,32,65,85,83,71,69,83 

32093 DATA67,72,65,76,84,69,84,32,33,0,162,0,165 
‚0,189,140,199,32,210,255,232 

32094 DATA201,0,208,245,76,176,199,13,158,83,80, 
69,73,67,72,69,82,80,76,65,84 

32095 DATA90,32,65,78,90,69,73,71,69,32,65,75,84 
,73,86,73,69,82,84,33,13,0,169 

32096 DATA186,141,2,3,169,199,141,3,3,152,72,138 
‚72,166,214,134,252,169,230,160 . 

32097 DATA199,32,30,171,165,51,229,49,170,165,52 
‚229,50,32,205,189,166,252,160 

32098 DATAO,132,199,24,32,240,255,104,168,104,17 
0,76,131,164,19,18,159,69,65 

32099 DATAB3,89,45,66,65,83,73,67,32,83,89,83,84 
,69,77,29,158,32,32,32,32,32 

32100 DATA159,29,66,65,83,73,67,32,66,89,84,69,8 
3,32,70,82,69,69,19,29,29,29 

32101 DATA29,29,29,29,29,29,29,29,29,29,29,29,29 
‚29,29,158,0,32,93,194,169,8 

32102 DATA133,186,169,96,133,185,169,1,133,183,1 
69,36,133,253,169,253,133,187 

32103 DATA169,0,133,188,32,213,243,165,186,32,18 
0,255,165,185,32,150,255,169  . 

32104 DATAO,133,144,160,3,132,253,32,165,255,133 
‚254,164,144,208,47,32,165,255 

32105 DATA1644,144,208,40,164,253,136,208,233,166 


Compute mi 


<49> 
<28> 
<93> 
<81> 
<2> 
<130> 
<112> 
<99> 
<83> 
<123> 
<126> 
<151> 
<211> 
<3> 
<208> 
<255> 
<72> 
<200> 
<149> 
<114> 
<166> 
<196> 
<252> 
<242> 
<241> 
<62> 
<214> 
<244)> 
<25> 
<153> 
<120> 
<47> 
<123> 
<71> 
<220> 
<84> 
<74> 
<162> 
<161> 
<55> 
<27> 
<55> 


<215> 








30 


programme 


‚254 ,32,205,189,169,32,32,210 

32106 DATA255,32,165,255,166,144,208,18,170,240, 
6,32,210,255,76,119,200,169,13 

32107 DATA32,210,255,160,2,208,198,32,171,255,7& 
„228,167,32,115,0,201,69,240 

32108 DATA7,201,65,240,47,76,8,175,169,15,141,24 
»„212,162,0,165,0,187,187,200 

32109 DATA32,210,255,232,201,0,208,245,76,228,16& 
7,13,158,76,65,85,84,83,84,65 

32110 DATA69,82,75,69,32,58,32,49,53,32,33,0,169 
„0,141,24,212,162,0,165,0,189 

32111 DATA231,200,32,210,255,232,201,0,208,245,7 
6,228,167,13,158,76,65,85,84 

32112 DATAB3,84,65,69,82,75,69,32,58,32,48,48,32 
„33,0,32,68,229,162,0,165,0,189 

32113 DATA29,192,32,210,255,232,201,0,208,245,16 
2,0,165,0,189,32,201 ,32,210,255 

32114 DATA232,201,0,208,245,76,20,202,19,17,17,1 
7129,29 ,29,29,29,159,42,42,42 

32115 DATA42,32,5,66,69,70,69,72,76,83,32,45,32, 
85,69,66,69,82,83,73,67,72,84 

32116 DATAS2,159,42,42,42,13,13,158,95,65,32,61, 
32,65,85,84,79,78,85,77,66,69 

32117 DATAB2,13,95,66,32,61,32,83,80,69,73,67,72 
‚69,82,80,76,65,84,90,32,65,78 

32118 DATA90,69,73,71,69,32,40,69,47,65,41,13,95 
,68,32,61,32,68,73,82,69,67,84 

32119 DATA79,82,89,13,95,70,32,61,32,70,69,72,76 
,69,82,45,66,76,79,67,75,65,68 

32120 DATA69,32,40,69,47,65,41,13,95,71,32,61,32 
„71,82,65,80,72,73,67,32,40,69 

32121 DATA47,65,41,13,95,72,32,61,32,72,69,76,80 
„13,95,73,32,61,32,73,78,73,84 


52122 DATA73,65,76,32,68,73,83,75,13,95,75,32,61 - 


‚32,83,80,65,67,69,32,75,73,76 

32123 DATA76,69,82,13,95,77,32,61,32,77,69,77,79 
‚82,89,32,68,85,77,80,13,95,79 

32124 DATA32,61,32,79,76,68,13,95,81,32,61,32,81 
‚85,73,84,32,83,89,83,84,69,77 

32125 DATAO,0,162,0,165,0,189,38,202,32,210,255, 
232,201 ,0,208,245,76,205,205 

32126 DATA13,95,82,32,61,32,82,69,78,65,77,69,32 
‚75,69,89,83,13,95,83,32,61,32 

32127 DATA68,73,83,75,32,83,84,65,84,85,83,13,95 
„84,32,61,32,84,65,83,84,65,84 

32128 DATAgS,82,80,73,69,80,93,32,40,69,47,65,41 
„13,95,86,32,61,32,76,65,85,84 

32129 DATAB3,84,65,69,82,75,69,13,95,90,32,61,32 
.90,69,73,76,69,78,68,69,76,67 

32130 DATAB4,69,13,95,49,32,61,32,72,73,78,84,69 
„82,71,82,85,78,68,32,70,65,82 

32131 DATA66,69,13,95,50,32,61,32,70,79,82,68,69 
‚82,71,82,85,78,48,32,70,65,82 

32132 DATA66,69,13,18,29,29,29,29,29,29,29,29,29 
,29,29,87,69,73,84,69,82,32,77 

32133 DATA73,84,32,159,70,55,158,32,33,33,146,0, 
165,203,201,3,240,3,76,211,202 

32134 DATA32,68,229,162,0,165,0,189,241,202,32,2 
10,255,232,201,0,208,245,76,225 

32135 DATA205,95,78,32,61,32,78,67,85,83,84,65,8 
2,84,13,83,72,73,70,84,32,61 

32136 DATA32,76,73,83,84,32,93,84,79,80,13,70,49 
„45,70,55,32,61,32,74,69,32,78 

32137 DATA65,67,72,32,66,69,76,69,71,85,78,71,13 
‚„13,158,0,169,255,141,6,212,141 

32138 DATA24,212,169,9,141,5,212,169,144,141,1,2 
12,169,33,141,0,212,120,169,87 

32137 DATA162,203,141,20,3,142,21,3,160,192,132, 
56,88,76,40,207,72,165,203,201 

32140 DATA&4,208,9,162,0,142,4,212,104,76,49,234 
„160,17,140,4,212,165, 203,201 

32141 DATA3,240,15,201,4,240,14,201,5,240,13,201 
»6,240,12,76,99,203,76, 21,204 

32142 DATA7&,141,203,76,208,203,76,231,203,32,68 
»229,169,12,162,15,160,1,141 

32143 DATAO,4,142,1,4,140,2,4,169,4,162,34,160,4 
4,141,3,4,142,4,4,142,21,4,140 

32144 DATA22,4,140,24,4,169,56,162,49,141,23,4,1 
42,25,4,169,1,141,154,0,169,0 

32145 DATA141,214,0,169,5,141,211,0,76,99,203,32 
,68,229,169,19,162,1,160,22,141 

32146 DATAO,4,142,1,4,140,2,4,169,5,76,161,203,3 
2,68,229,169,12,162,9,160,19 

32147 DATA141,0,4,142,1,4,140,2,4,169,20,162,32, 
141,3,4,142,4,4,169,19,162,13 

32148 DATA160,2,141,119,2,142,120,2,140,198,0,7& 


<49> 
<138> 
<76> 
<89> 
<37> 
<> 
<156> 
<121> 
<179> 
<16> 
<53> 
<139> 
<105> 
<152> 
<168> 
<193> 
<166> 
<23> 
<196> 
<209> 
<187> 
<205> 
<102> 
<231> 
<66> 
<16> 
<188> 
<114> 
<83> 
<b> 
<ab> 
<162> 
<144> 
<169> 
<57> 
<37> 
<244> 
<128> 
<40> 
<183> 
<196> 
<251> 
<152> 


„99,203,32,68,229,169,18,162 
32149 DATA21,160,14,141,0,4,142,1,4,140,2,4,169, 
32,162,32,141,3,4,142,4,4,7& 
32150 DATA3,204,32,115,0,201,53,240,7,201,55,240 
„8,76,8,175,160,181,76,73,204 
32151 DATA140,183,152,72,32,68,229,162,0,165,0,1 
897,101,204,32,210,255, 232,201 
32152 DATAO,208,245,104,168,141,26,4,76,149,204, 
19,18,158,78,69,85,69,32,66,69 
32153 DATA76,69,71,85,78,71,32,70,85,69,82,32,84 
,65,83,84,69,32,159,70,32,158 
32154 DATA32,40,53,32,90,69,73,67,72,69,78,41,13 
„13,0,0,169,1,141,154,0,169,4 
32155 DATA141,214,0,169,0,141,211,0,169,177,141, 
8,3,169,204,141,9,3,76,228,167 
32156 DATA162,0,165,0,189,80,4,157,36,205, 232,22 
4,5,208,245,173,26,4,201,181 ; 
32157 DATA240,7,201,183,240,46,76,228,167,173,36 
»205,141,235,203,173,37,205,141 
32158 DATA237,203,173,38,205,141,237,203,173,39, 
205,141,250,203,173,40,205,141 
32159 DATA252,203,169,240,141,8,3,169,192,141,9, 
3,76,228,167,173,36,205,141,25 
32160 DATA204,173,37,205,141,27,204,173,38,205,1 
41,29,204,173,39,205,141,40,204 
32161 DATA173,40,205,141,42,204,169,240,140,8,3, 
169,192,141,9,3,76,228,167,12 
32162 DATA9,19,20,32,234,32,115,0,201,69,240,7,2 
01,65,240,54,76,8,175,162,0,165 
32163 DATAO,189,79,205,32,210,255,232,201,0,208, 
245,169,17,141,104,203,76,228 
32164 DATA167,13,158,84,65,83,84,65,84,85,82,80, 
73,69,80,83,32,65,75,84,73,86 
32165 DATA73,69,82,84,32,33,0,162,0,165,0,199,13 
0,205,32,210,255,232,201,0,208 
32166 DATA245,169,0,141,104,203,76,228,167,13,15 
8,84,65,83,84,65,84,85,82,80 
32167 DATA73,69,80,83,32,65,85,83,71,69,93,67,72 
,65,76,84,69,84,32,33,0,120,169 
32168 DATA49,162,234,141,20,3,142,21,3,169,0,141 
„4,212,88,76,172,195,120,169 
32169 DATAB7,162,203,141,20,3,142,21,3,169,17,14 
1,4,212,88,32,0,192,76,228,167 
32170 DATA120,169,49,162,234,141,20,3,142,21,3,1 
69,0,141,4,212,88,76,211,202 
32171 DATA162,0,32,179,238,232,208,250,120,169,8 
7,162,203,141,20,3,142,21,3,169 
32172 DATA17,141,4,212,88,76,228,167,234,201,81, 
240,13,201,67,240,12,201,80,240 
32173 DATA11,234,76,8,175,234,76,25,206,76,151,2 
06,76,228,167,234,162,0,165,0 
32174 DATA189,43,206,32,210,255,232,201,0,208,24 
5,76,65,206,13,158,81,95,73,84 
32175 DATA32,83,89,83,84,69,77,32,40,74,47,78,41 
»32,63,0,169,78,162,206,141,8 
32176 DATA3,142,9,3,76,228,167,32,115,0,201,74,2 
40,23,201,78,240,3,76,25,206 
32177 DATA169,240,162,192,141,8,3,142,9,3,32,0,1 
92,76,228,167,169,228,162,167 3 
32178 DATA141,8,3,142,9,3,169,139,162,227,141,0, 
3,142,1,3,169,49,162,234,141 
32179 DATA20,3,142,21,3,169,0,141,4,212,169,255, 
141,5,128,76,226,252,32,115,0 
32180 DATA201,67,240,7,201,65,240,47,76,8,175,16 
2,0,165,0,189,183,206,32,210 - 
32181 DATA255,232,201,0,208,245,76,1,207,13,158, 
67,79,76,79,85,92,45,76,73,83 
32182 DATAB4,32,65,75,84,73,86,73,69,82,84,32,33 
‚0,162,0,165,0,189,227,206,32 
32183 DATA210,255,232,201,0,208,245,76,20,207,13 
‚158,67,79,76,79,85,82,45,7& 
32184 DATA73,83,84,32,65,85,83,71,69,83,67,72,65 
»76,84,69,84,32,33,0,169,14,162 
32185 DATA207,141,101,203,142,102,203,76,228,167 
„238,134,2,76,49,234,120,169 
321864 DATA49,162,234,141,101,203,142,102,203,88, 
169,7,141,134,2,76,228,167,162 
32187 DATAS3,160,207,142,6,3,140,7,3,76,65,207,7 
2,173,141,2,201,1,240,249,104 
32188 DATA76,26,167,167,68,162,227,160,68,141,0, 
128,142,1,128,140,2,128,169,229 
32189 DATA162,195,160,194,141,3,128,142,4,128,14 
0,5,128,169,205,162,56,160,48 
32190 DATA141,6,128,142,7,128;140,8,128,32,93,19 
4,96,0 

ENDE DES LISTINGS 


Gompute mib 





<248> 
<&> 
<70> 
<103> 
<30> 
<116> 
<230> 
<24> 
<88> 
<67> 
<207> 
<169> 
<58> 
<37> 
<206> 
<57> 
<> 
<44> 
<167> 
<215> 
<156> 
<224> 
<229> 
<224> 
<219> 
<131>_ 
<71> 
<225> 
<113> 
<54> 
<73> 
<997> 
<16> 
<178> 
<89> 
<197> 
<253> 
<211> 
<112> 
<240> 
<235> 
<88> 
<104> 


2187 





Ski-Jumping ist eine tolle Ski-fug 
Simulation (passend zur Jahresze- 
yvt), bei der die realitätsnahe Dar- 
stellung im Vordergrrund stand. 
Daher wurden über 40 Sprites 
und zwei komplette Zeichensätze 
definiert. 


Nach dem Start sehen Sie zu- 
nächst die Sprungschanze, auf der 
die Spielfigur herabsaust. Sie müs- 
sen nun den richtigen Absprung- 
punkt finden (mit dem Feuerk- 
nopf). Ist dies geglückt, so sehen 
Sie den unteren Teil der Anlage, 
auf der der Springer durch die 
Luft segelt. 


Weiter oben ist noch eine Vergrö- 
ßerung des Skispringers abgebil- 
det, in der Sie die Haltung besser 
erkennen können. 


Durch Joystickbewegungen nach 
links oder rechts können Sie den 
Springer nach hinten oder vorne 
legen. Die Mittelstellung ist aller- 
dings optimal. Dem oft auftrete- 


nen Querstellen der Skier können 
Sie durch Hochdrücken des Joy- 
sticks begegnen. 

Kurz vor Erreichen des Bodens 
sollten Sie den Feuerknopf 
drücken, wodurch Sie den Sprin- 
ger veranlassen, zu Telemark- 
Landung anzusetzen. 


Kurz danach erscheint die Aus- 
wertung, auf der Weite und Hal- 
tungspunkte aufgeführt werden. 
Eingabetips: 

Zuerst müssen die Teile ”SKI- 
JUMPING” und ”SKI-DATAS” 
abgetippt und gettrennt gespei- 
chert werden. Dann wird ”SKI- 
DATAS” gestartet, wodurch der 
File "SKI MC” auf Diskette ge- 


schrieben wird. Von nun an muß 
man nur noch ”SKI-JUMPING” 


laden und starten, wodurch der 


Rest automatisch von Diskette 
nachgeladen wird. Bei Verwen- 
dung einer Datasette müssen die 
Deviceadressen natürlich entspre- 
chend geändert werden. 


programme. 


Ski-Jumping 


„und ab geht die Post!!! 








15-64 LISTING + CHECKSUMMEN (C V1.0) 


Q IFA=OTHENA=13LOAD"SKITSPACEYMC” ,B,1:REM DATASE 

















TTE = „1,1 <30> 
1 GOTO9I0 <140> 
10 REINE EINEN SENSE HEISE NIE NEN IE TEE NE SEHE IE NIE <130> 
1 * * <15> 
12 * sKı JUMPING * <40> 
13 * * <17> 
14 * «c) 1987 BY * <S50> 
15 * * <19> 
16 * RADDISH-SOFT GERMANY * <138> 
17 * * <21> 
18 * WRITTEN BY * <165> 
17 * * <23> 
20 * CHRISTIAN RDUCH * <87> 
21 * * <25> 
22 * TEL. 02365/59008 * <137> 
23 * * <27> 
24 %* * <28> 
25 EEE TESTEN NEE HIERHIN IENE <145> 
90 PRINT"CHHITE CLEAR}Y" :POKESS280 ,0:POKESS32B1 ,O <200> 
91 PRINT" {DQHN3 RIGHT2YSKITSPACE2IJUMPING" <159> 
92 FRINT"{DOHNZ3 RIGHT2>(C) {SPACEI1IBTTSPACEYBYTS 

PACE>” <57> 
93 PRINT"{DQHN2 RIGHTZYRADDISH-SOFT {SPACE }GERMAN 

Cd <164> 
94 PRINT" {DOHN4 RIGHT2YPLEASE{SPACEYWAITISPACEIS 
«O{SPACE}MINUTES" <96> 
95 FORT=1T02500: NEXT <637 
100 A=0:DIMH (75) :FORI=OTOY <234> 
101 H(48+1)=1:H(545+I)=I+10:NEXT <162> 
102 FORI=501761052736: READA$ <116> 
103 H=ASC (LEFT$(A$,1)) =L=ASC (RIGHT$ (A$,1)) <153> 


2/87 


104 
105 
106 
107 
108 
109 


D=H(H) #16+H(L) :5=5+D:POKEI,D 

A=A+1: IFA<ZOTHENNEXT: A=-1 

PRINT"ZEILE= "z111+Z5 

READV: Z=Z+1: IFV=STHEN109 
PRINT"PRUEFSUMMENFEHLER {SPACE} ! "3 110+Z:5TOP 
IFASOTHEN1000 

110 S=0:A=0:PRINT:NEXT:GDTO1000 

111. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, © 

112 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,3C,00,00,3C,00,00, 120 

113 DATA F0,00,00,F0,00,00,C0,00,00,F0,00,00,30, 
00,00.30,00,00,30,0C, 1068 x 
114 DATA FF,FF,F0,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 750 

115 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,30,00, 48 

116 DATA 00,FC,00,C0,FF,C0,30,33,00,0C,F0,00,03, 
C0,00,00,C0,00,00,30, 1677 

117 DATA 00,00,0C,00,00,03,C0,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 207 

118 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,30,00,C0,FC, 492 

117 DATA 00,30,FF,00,00,33,C0,0C,F3,00,03,C0,00, 
00,C0,00,00,C0,00,00, 1392 

120 DATA 30,00,00,0C,00,00,0C,00,00,03,C0,00,00, 
00,00,00,00,00,00,00, 267 

121 DATA 00,00,00,00,00,00,00,C0,00,00,C0,00,00, 
C3,C0,00,33,F0,00,33, 1113 

122 DATA 30,00,3F,3C,00,0F,0C,00,0C,00,00,0C,00, 
00,03,00,00,03,00,00, 228 

123 DATA 03,00,00,00,C0,00,00,C0,00,00,C0,00,00, 
30,00,00,00,00,00,00, 627 





Compute mib 


<249> 
<68> 
<247> 
<251> 
<12> 
<60> 
<196> 
<202> 
<211> 
<197> 
<154> 
<54> 
<42> 
<57> 
<148> 
<154> 
<140> 
<88> 
<121> 


<251> 
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Heft 1/86 

Commodore 

Bestell-Nr. COM CK 1/2 16,- DM 
Bestell-Nr. COM CD 1/2 20,- DM 
Checksummer 1.0 C, Astrenaut Battle 
(6-64), Husycobra (G-16/116), Hardcepy- 


routine (C-18/116), Heimut und die Zeit- 
maschine (C-16/116), Lecos (VC-20), 
Rock'me' (VC-20), Charly der Raksten- 
mann (VC-20), Interrupt-Programmis- 
rung (VC-20) 


Schneider 
Bestell-Nr. COM SK 1/2 16,- DM 
Bestell-Nr. COM SD 1/2 39,- DM 


Dofender, Boulder Dash, Basic-Befehle 
auf den Funktionstasten 


Heft 5/86 

Commodore 

Bestell-Nr. COM CK 5/2 16,- DM 
Bestell-Nr. COM CD 5/2 20,- DM 


Space-Devil (C-64), Bisk-Eddi (C-64), 
ABC-Legen (V-20), 3- - 
20), Tron {(VC-20), Invaders of Space (C- 
16/116), Submarine (C-16/116), Balken- 
diagramm (G-16/116) 


Schneider 

Bestell-Nr. COM SK 5/2 16,- DM 
Bestell-Nr. COM SD 5/2 39,- DM 
Startark, Grafik-Designer, Gross-Refe- 
rence, Itext 


Heft 9/86 


Commodore 
Bestell-Nr. COM CK 9/2 16,—- DM 
Bestell-Nr. COM CD 9/2 20,—- DM 


Moonpatro! (VC20), Falcons Lander 
(VC 20), Frogger (VC20), The Games 
(C64), Cave of Death (C64) Sprites 
and Sound mit dem UMH-System 
(C 64), Diggy (C 16/116), Tapedirecto- 
ry (C 16/116), Reversi (C 16/116) 


Schneider 
Bestell-Nr. COM SK 9/2 16,- DM 
Bestell-Nr. COM SD 9/2 39,- DM 


Creepy, Briefeschreiben, Frutty Man, 
Mirror Battle 


Heft 1/87 

Commodore 

Bestell-Nr. COM CK 1/3 16,- DM 
Bestell-Nr. COM CD 1/3 20,—- DM 


Torch (VC20), Bomberman (VC 20), 
Note Screen (C 16/116), Champ (C 16/ 
116), Checksummer (C 16/116), Check- 
summer (C64), Pyramid (C 16/116), 
Turbo-Disc (C 64), IRQ-Routine (C 64), 
Rylan (C 64), Ice Racing (C 64) 
Schneider 

Bestell-Nr. COM SK 1/3 16,- DM 
Bestell-Nr. COM SD 1/3 39,— DM 
Electric Gladiators, ‚Bildschirmtool- 


box, Suprabasic, N 
Madgoon’s Race, Star Trek, Check- 
summer 


Neft 2/86 

Commodore 

Bestell-Nr. COM CK 2/2 16,- DM 
Bestell-Nr. COM CD 2/2 20,- DM 


Robe (C-64), Basic-Befehlserweiterung 
(C-64), Raketenstart (C-16/116), Drei- 
kampf (C-16/116), Headline (G-16/116), 
Bofender (VC-20), Formel 1 (VC-20), Me- 
mory-Display (VC-20) 


Schneider 
Bestell-Nr. COM SK 2/2 16,- DM 
Bestell-Nr. COM SD 2/2 39,- DM 


Alien 2001, Diamond Hunter, Directory 


Heft 6/86 

Commodore 

Bestell-Nr. COM CK 6/2 .16,- DM 
Bestell-Nr. COM CD 6/2 20,- DM 


Music-Master (C-64), The littie Puck 
goes home (C-64), EDBY (G-64), Invers- 
Utility (C-16/116), Checksummer (C-16/ 
116), Affenwurf (C-16/116), Data-Maker 
(V6-20), Karate-Kid (VC-20), Q-Bert (VC- 
20) 

Schneider 

Bestell-Nr. COM SK 6/2 16,- DM 
Bestell-Nr. COM SD 6/2 39,- DM 
Disksort, Mini-Forth, Starcommand 


Heft 10/86 


Commodore 

Bestell-Nr. COM CK 10/2 16,- DM 
Bestell-Nr. COM CD 10/2 20,- DM 
Laufschrift (VC20), Checksummer 
(VC20), Treasure Robber (VC20), 
Scrumble (VC 20), Refusal-Basiclader 
(C-16), Hardy-Copy-Blitz (C-16), Auto- 
start (C-16), Fill-Utility (C-16), Railway 
(C-16), Domino (C-16), Sprite Turn/ 
Character-Switch (C-64), Checksum- 
mer (C-64), Horse Games (C-64), Pa- 
trouille (C-64) 


Schneider 

Bestell-Nr. COM SK 10/2 16,—- DM 
Bestell-Nr. COM SD 10/2 39,—- DM 
Checksummer, Panic-Car, Scurfy 
Joe, Drawgenerator, Airfighter 


ANSICHT IT -Tı Wu l-Iie 


Commodore 
Bestell-Nr. COM CK 2/3 
16,- DM 

Bestell-Nr. COM CD 2/3 
20,—- DM 


Schneider 

Bestell-Nr. COM SK 2/3 
16,- DM 

Bestell-Nr. COM SD 2/3 
39,- DM 


Heft 3/86 

Comm: 

Bestell-Nr. COM CK 3/2 16,- DM 
Bestell-Nr. COM CD 3/2 20,- DM 
Minor-Jumper (C-18/116), Hero 
(C-16/116), Data-Maker (C-16/116), Be- 
tehlserwelterung (6-64), Starchip 


(6-64), Mini-Car-Race (6-64), Text- 
Screller (C-64), Text-Editor (C-64), 
Checksummer (VC-20), Rekin at Ra- 
venwreck (VC-20), Mini-Karate (VC-20), 
Autonumber-Routine (UC-20) 
Schneider 

Bestell-Nr. COM SK 3/2 16,- DM 
Bestell-Nr. COM SD 3/2 39,- DM 
Smily, Serepi, Die verrückte Fabrik, Disc- 
Heip 


Heft 7/86 

Commodore 

Bestell-Nr. COM CK 7/2 16,- DM 
Bestell-Nr. COM CD 7/2 20,- DM 


VC-20-Sound-Bemo, Mad Rush (VC-20), 
Ghest-Heil (VC-20, Roadrunner (C-64), 
Basic Extension (C-64), Meteoriten- 
sturm (6-64), Checksummer G-16/116, 


Airwolt (G-16/116), Break-Out (C-16/116) 
Schneider s 

Bestell-Nr. COM SK 7/2 16,- DM 
Bestell-Nr. COM SD 7/2 39,- DM 
Poker, Cavo-Walker, Diskettenarchiv 
Heft 11/86 

Commodore 

Bestell-Nr. COM CK 11/2 16,—- DM 
Bestell-Nr. COM CD 11/2 20,- DM 


Cooky (VC20), Gambol (VC20), Wo- 
stok (VC20), Topball (C 16), Zauber- 
puzzle (C16), Schieberoutine (C 16), 
Atlantis (C64), Astronomie (C64), 
Deutsche Fehlermeldung (C 64), Rem- 
zeilenkiller (C 64) 


Schneider 

Bestell-Nr. COM SK 11/2 16,- DM 
Bestell-Nr. COM SD 11/2 39,—- DM 
Diskettenhilfe, Horror Driver, Disc of 
Tron, Space Hawk; Morsedecoder 


Alle hier aufgeführten 
Kassetten und Disket- 
ten können jederzeit 
nachbestellt werden. 


Bei den Zeitschriften 
sind die Ausgaben 5, 12 
(85) und 5, 6, 7, 8, 9, 10, 
11, 12 (86), 1 (87) noch 
vorhanden. 





Gompute mib 





Heft 4/86 
. Commodore > 

Bestell-Nr. CK 4/2 16,- DM 
Bestell-Nr. COM CD 4/2 20,- DM 


Shuttle (VC-20), Josef in den Höhlen 
(VC-20), Merge-Reutine (UC-20), Shoot it 
(VC-20), Fast Trust (G-64), Data-Text 64 
(C-64), Gary, der schnelle Kabeiverleger 
(C-16/116), SDI (C-16/116), Beep-Routine 
(C-16/116) 


Schneider 

Bestell-Nr. COM SK 4/2 16,- DM 
Bestell-Nr. COM SD 4/2 39,- DM 
Space-Rescue, Texteditor, Starlight, 
Programm-Retter _ 

Heft 8/86 

Commodore 

Bestell-Nr. COM CK 8/2 16,- DM 
Bestell-Nr. 82 20,- DM 


Death Desert (C-64), 3-B-Labyrinth (C- 
64), Klick (6-64), Bahnhef (VC-20), Ome- 
ga Attack (VC-20), Sound (VC-20), Piati- 
nenlaysut (G-16/116), Balleon Shost (16/. 
116), Hardcopy (C-16/116) 


Schneider 
Bestell-Nr. SK 8/2 
Bestell-Nr. COM SD 8/2 


16,- DM 
39,- DM 


Heft 12/86 


Commodore 

Bestell-Nr. COM CK 12/2 16,- DM 
Bestell-Nr. COM CD 12/2 20,- DM 
Ballon Hopper (VC20), Fight" Night 
(VC20), King of Kings (C 16/116), Ga- 
laxis (C16/116), Sprites (C 16/116), 
Atom (C64), Extended-UMH (C 64), 
IRQ-Directory (C 64) 


Schneider 

Bestell-Nr. COM SK 12/2 16,- DM 
Bestell-Nr. COM SD 12/2 39,- DM 
Alien Attack, Lucky Luck, Mouse, 
Checksummer, Tracer 


Superpakete! 


Beachten Sie bitte 
unsere neu 


geschnürten 


Programmpakete. 
„und das zu 


einem Superpreis! 


Neu: Superpakete zum Superpreis! 


Superpaket 1 

Spiele 

Monster Attack, Projekt, High Noon, Brieftaube, 
Cadilon, Turbo Jet, Sea Attack, The Maze 


Graze Game, Galaxi, Space Comets, Sheet, 
Vampir, Memory 


SP-C-K-1 
SP-C-D-1 


Kassette 20, — 
Diskette 20, — 


Superpaket 2 
Spiele 


Tank Duell, Astronaut, Jungle 1, Jungle 2, Sufo, 
Fire-Legion, Spiders, Star Battle, Super 
Breakout, Mission Rescue, Roadpainter, 
Moonsweeper, Scotti 


SP-C-K-2 
SP-C-D-2 


Kassette 20, - 
Diskette 20, — 


Superpaket 3 
Anwender 


The Basis, Basicreset, Data-Generator, Print- 
Generator,:Supermon-64, Restore N, Disky 10, 


Fill-Loader,-Funktionstasten-Belegung, Autostart, 


Multibasic, Bildeditor, Spritehilfe + Demo, 
Autonumber, Micro-Tools + Mioader 


SP-C-K-3 
SP-C-D-3 


Kassette 20, — 
Diskette 20, — 


Superpaket 1 


Horror Castle, Fantasy County, Senso, Jumping 
Joe; Schatztaucher, Shaolin, City Runner 


SP-O-K-1 
SP-0-D-1 


Kassette 20, — 
Diskette 20, — 


Superpaket 2 


Genesis-Super-Assembler 
für C-16/116&plus4 


Komplett mit Anleitung und Demo-Programm 


SP-O-K-2 
SP-O-D-2 


Kassette 15, — 
Diskette 15, — 


18,- 123, - 
18,-123,- 


18, - 123, - 
18,-123,- 


Superpaket 1 

Flowers, Tanker, Jupiter Rescue, Einbrecher, 
Hospital, Alien, Flipperball, Sub-Zone, Dr. Cerp, 
Geo-Zayxon, Froggies Night Mare, Punkte- 
fresser, Starwars, Salavage Crew 


SP-V-1 nur Kassette 20, — 


Anleitungen zu unseren Programmen erhalten Sie aus un- 
seren Heften. Bei ausverkauften Heften erhalten Sie zum 
Heftpreis Fotokopien der Spielbeschreibungen. 


= 


Per 


Superpaket 1 

Spiele 

Alien Hunter, Catch, Interceptor 3 D, City 
Lander, Conan’s Castle, Copter Patrool, CPC 
Bert, Crash, Demon Attack, Duell, Etis, Labyrint, 
Miner, Tower, Snider's Maze, Geister Schloß, 
Fallschirmspringer, Secret Valley, Aladin, 
Hounted Castle, Cave runner, Cobra, Erwin, 
Kruemi, Q-Bert 


SP-SR-K-1 
SP-SR-D-1 


Kassette 20, — 
Diskette 27, — 


Superpaket 2 
Anwender 


Back up, Data gen, Datenverwaltung, Discopy, 
Monitor, Painter, Remkiller, SU-File, 
Tastaturbelegung 


SP-SR-K-2 
SP-SR-D-2 


Kassette 20, — 
Diskette 27,— 


Tel an Id-MI-Talilel-) 


Der Tronic-Verlag bietet 
Spitzensoftware für jeder- 
mann. 

Überzeugen Sie sich von 
unseren Angeboten und 
bestellen Sie noch heute. 
Alle Bestellungen werden 
innerhalb nur 


1 Woche 


nach Eingang bearbeitet. 
Telefonische Bestellungen 
unter der Rufnummer 


05651/30011 





Programme 


124 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, 0 


125 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,03,C0,00,3F, 258 


12& DATA 00,00,FC,00,00,F0,00,00,3C,00,00,0C,00, 


00,30,0C,FF,FF,F0,00, 1374 


127 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, © 


128 DATA 00,00,00,00,00,30,00,00,C0,00,00,C0,00, 


03,C0,C0,03,00,C0,03, 1017 

1279 DATA C3,00,00,CC,00,00,F0,00,00,C60,00,03,00, 
00,0C,00,00,30,00,00, 874 

130 DATA C0,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 192 

131 DATA 00,00,00,00,00,00,00,00,00,30,00,00,C0, 
00,00,C0,00,03,C0,C0, 817 

132 DATA 03,00,C0,03,C3,00,00,CC,30,00,FF,C0,03, 
F0,00,FF,00,00,0C,00, 1602 

133 DATA 00,30,00,00,C0,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 240 

134 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, © 

135 DATA 00,00,00,00,00,00,30,00,00,C0,FC,03,00, 
03,CC,00,00,3F,00,00, 765 

136 DATA FO,F0,03,30,0C,06,C3,CC,30,3F,FC,00,00, 
00,00,00,00,00,00,00, 1317 

137 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, © 

138 DATA 00,C0,00,03,00,00,03,00,C0,03,30,30,3F, 
C0,0F,FC,00,03,0C,00, 1218 

139 DATA 00,C3,00,00,3F ,00,00,0C,00,00,03,00,00, 
00,F0,00,00,00,00,00, 513 

140 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 0 

141 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
‚00,00,00,00,00,00,00, O 

142 DATA 00,00,00,C0,00,0F,C0,00,3C,00,00,F0,00, 
03,00,30,FF,FF,C0,00, 1452 

143 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, © 

144 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 0 

145 DATA 00,C0,00,0F,C0,00,3C,00,F0,F0,00,0F,C0, 
30,FF,FF,CO,00,0F,30, 1959 

146 DATA 00,00,C0,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 192 

147 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,03,00, 3 

148 DATA 00,0F,00,00,0C,00,00,30,00,00,30,30,00, 
C3,C0,00,FC,00,03,C0, 1005 - 
149 DATA 00,3C,00,00,C0,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 252 

150 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, O0 

151 DATA 00,00,03,00,00,0F,00,00,0C,00,00,30,00, 
00,30,30,00,C3,C0,FF, 816 

152 DATA FC,00,03,FF,00,3C,00,F0,C0,00,00,00,00, 
00,00,00,00,00,00,00, 1002 

153 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 0 \ 

154 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, © 

155 DATA 00,3C,00,00,03,F2,00,00,0F,00,00,03,00, 
FF,FF,00,00,00,00,00, 833 

156 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,30, 48 

157 DATA 00,2A,BE,02,9A,90,02,9A,9C,0A,AA,00,2A, 
00,00,28,00,00,A0,00, 1276 

158 DATA 00,80,00,00,00,00,03,FF,FF,FC, cr, C0,00, 
00,3F ,0C,00,00,F0,00, 1607 

159 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, O 

160 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, © 

161 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
02,00,00,03,00,00,03, 8 


162 DATA 00,FF,FF,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, 510 


165 DATA 00,00,00,00,00,00,00,00,00,00,30,00,0A, 


BC,00,AA,9C,02,6A,9C, 836 


164 DATA 02,6A,00,0A,80,00,2A,00,00,28,00,00,A0, 


00,00,80,00,00,00,00, &1& 


165 DATA 03,FF,FF,FC,CO,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, 957 


166 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,3C,00,00,C3, 255 


167 DATA C0O,00,00,5C,00,00,03,00,00,03,00,00,0F, 


<215> 
<192> 
<40> 
<218> 
<142> 
<248> 
<200> 
<238> 
<111> 
<65> 
<225> 
<124> 
<210> 
<22B> 
<157> 
<195> 
<231> 
<232> 
<34> 
<234> 
<235> 
<98> 
<74> 
<83> 
<15> 
<130> 
<241> 
<134> 
<158> 
<244> 
<245> 
<ı> 
<104> 
<109> 
<192> 
<250> 
<251> 
<141> 
<170> 
<216> 
<125> 
<74> 


<&0> 


00,00,30,00,00,C0,00, 513 


168 DATA 03,02,00,00,02,00,30,02,00,30,00,00,00, 


00,00,00,00,00,00,00, 117 


157 DATA 00,00,00,00,00,053,00,00,0C,00,00,30,00, 


00,C0,00,03,00,00,0C, 270 


170 DATA 00,00,30,00,00,F0,00,00,FC,00,00,A3,C0, 


00,80,3C,00,80,03,C0, 1406 


171 DATA 80,00,00,RA2,A3,00,AA,AB,CO,AA,AF,CO,OA, 


A1,C0,00,00,00,00,00, 1880 


172 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, O0 


173 DATA 00,00,00 
00,00,00,00,00,00,00, © 
174 DATA 00,00,00 
00,00,03,00,FF,FF,00, 516 
175 DATA 00,00,00,00 
00,00,00,00,00,00,00, © 
17& DATA 00,00,00,00 
00,00,00,00,00,30,00, 48 
177 DATA OA,BC,00,2A, 
00,80,00,03,BF,FF,FC, 1871 
178 DATA C0,00,00,00, 
00,00,00,00,00,00,00, 192 
179 DATA 00,00,00,00 
00,00,00,00,00,00,00, © 
180 DATA 00,00,00,00 
3C,00,00,03,FC,00,00, 315 
181 DATA 03,00,00,03, 
00,00,00,00,00,00,00, 516 
182 DATA 00,00,00,00 
00,00,00,00,00,00,00, 

183 DATA 00,00,00, 


OA,FA,00,AA,00,00,B0O, 1266 


‚00,00,00,00,00,00,00,00,00,00, 
„00,00,00,00,00,00,00,00,00,03, 
,00,00,00,00,00,00,00,00,00, 
E02 02:00 00 ADD TENEOR 
9C,02,9A,97C,0A,97A,00,AA,00, 
00,00,00,00,00,00,00,00,00, 
„00,00,00,00,00,00,00,00,00, 
‚00,00,00,00,00,00,00,00,00, 
00,FF,FF,00,00,00,00,00,00, 
N 00,00,00,00,00,00,00,00, ° 
30, 00, OA,BC,00,2A,7C,02,9A,9C, 


184 DATA 00,03,BF,FF,FC,CO,FC,0C,00,03,F0,00,00, 


00,00,00,00,00,00,00, 1400 


185 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, O 


185 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, 0 


187 DATA 00,00,00,00,00,0F,00,00,F0,00,0F,00,00, 


30,00,00,00,00,00,00, 318 


188 DATA 00,00,00,0C,00,00,37,00,00,97,00,02,A0, 


00,02,80,00,0A,80,00, 648 
189 DATA 0A,00,00 
00,00,20,00,00,A0,00, 32& 
190 DATA 03,A0,00, 
FF,00,00,F0,00,00,00, 161& 
191 DATA 00,00,00,0 
00,00,00,00,00,00,00, 

192 DATA 00,00,00,0 
00,00,00,00,00,00,00, 0 
193 DATA 00,00,00,0 
OF,00,00,F0,00,0F,00, 780 
194 DATA 00,30,00,0 
00,37,00,00,97,00,02, 268 
195 DATA A0,00,02 
00,26,00,00,28,00,00, 525 
196 DATA 28,00,00 
00,F0,80,0F,03,C0,FF, 1371 
197 DATA FC,FF,FO,O 
00,00,00,00,00,00,00, 987 
198 DATA 00,00,00,0 
00,00,00,00,00,00,00, 0 
199 DATA 00,00,00,00 
00,00,03,00,00,03,00, 11 
200 DATA 00,3C,00,03 
00,00,00,00,00,00,00, 507 
201 DATA 00,00,03,00, 
02,A8,00,02,A0,00,0A, 954 
202 DATA 80,00,09,80, 
00,30,00,0C,A0,00,3C, 674 
203 DATA 80,03,C0, 


00,00,00,00,00,00,00, 1150 


»06,00,00,24,00,00,28,00,00,28, 
OF ,80,00,F0,80,0F,00,C0,F0,00, 
‚00,00,00,00,00,00,00,00,00,00, 
„00, 100 00,00,00,00,00,00,00,00, 
‚00,00,00,00,00,00,03,FF,00, FC, 

0,00,00,00,00,00,00,00,0C,00, 
‚80,00,0A,80,00,0A,00,00,09,00, 
»20,00,00,A0,00,03,A0,00,0F,80, 
„00,F0,00,00,00,00,00,00,00,00, 
0,00,00,00,00,00,00,00,00,00, 
‚00,00,00,00,00,02,00,00,03, 
‚C0,00,3C,00,00,C0,00,00,00, 
00,0F ,C0,00,29,C0,00,A7,00, 
00,07,00,00,3C,00,00,3C,00, 


80,3C,00,03,C0,00,FC,00,00,C0, 


204 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, © 


205 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, - 


00,00,00,00,00,00,00, © 


206 DATA 00,00,00,00,00,00,00,00,03,FF,00,FC,OF, 


00,00,F0,00,0F ,00,00, 780 


207 DATA 00,00,00,00,00,00,00,00,00,00,00,C0,00, 


03,F0,00,0A,70,00,2A, 597 


208 DATA 40,00,AA,00,00,68,00,02,60,00,02,A0,00, 


02,80,00,0A,00,00,0A, 748 


209 DATA 00,00,08,00,03,28,00,F0,A0,0F,03,C0,F3, 


FC,FF,FC,00,F0,00,00, 1903 


210 DATA C0,00,00,00,00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00, 192 


Computs mi 


<218> 
<234> 
<250> 
<82> 
<163> 
<7> 
<8> 
<187> 
<10> 
<115> 
<«171> 
<248> 
<14> 
<218> 
<138> 
<17> 
<166> 
<108> 
<20> 
<21> 
<248> 
<215> 
<133> 
<255> 
<26> 
<27> 
<125> 
<44> 
<207> 
<205> 
<17> 
<33> 
<91> 
<138> 
<244> 
<216> 
<186> 
<39> 
<40> 
<188> 
<206> 
<60> 
<250> 


<24> 











211 DATA 00,00,00,00,00,00,00,00,00,00,02,00,00, 
02,00,00,02,00,00,02, 8 

212 DATA 00,00,02,00,00,02,00,00,00,00,00500,00, 
00,02,00,00,02,00,00, B 

213 DATA 03,00,00,03,00,FF,FF,00,00,00,00,00,00, 
00,00,00,00,F0,00,00, 756 

214 DATA D0,00,00,50,00,00,80,00,00,A0,00,00,A0, 


00,00,A0,00,00,A0,00, 1056 

215 DATA 00,60,00,00,650,00,00,80,00,00,80,00,00, 
80,00,00,80,00,00,80, 832 

216 DATA 00,00,00,00,00,C0,00,C0,FF,FF,00,00,00, 
00,00,00,00,00,00,00, 894 

217 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, © 


218 DATA 00,00,00,00,00,00,00,00,00,00,00,00,£0, 
00,00,30,00,00,0C,20, 284 
219 DATA 00,03,EA,00,00,CA,00,00,30,00,00,0C,00, 
00,03,00,00,10,00,00, 518 


220. DATA 80,00,00,80,00,02,80,00,02,30,00,02, 96, _ 


00,02,9E,40,0A,A0,00, 988 

221 DATA 2A,80,00,AB,00,00,A0,00,00,A8,00,00,2A, 
00,00,02,00,00,CE,00, 916 

222 DATA 00.3C.00.00,0C,00,00,03,00,00,00,C0,00, 
00,30,00,00,0F,00,00, 330 

223 DATA 00,00,02,00,00,02;00,00,02,00,00,09,00, 
00,09,00,00,0A,00,00, 34 

224. DATA 01,00,00,02,00,00,02,00,00,02,00,00,00, 
00,00,00,00,00,00,00, 7 

225 DATA 00,00,00,00,00,00,00,03,00,00,0C,00,00, 
30,00,00,60,00,03,00, 258 

225 DATA 00,0C,00,00,00,00,00,00,00,00,3C,00,00, 
34,00,00,94,00,00,A0, 432 

227 DATA 00,00,A0,00,00,A0,00,00,80,00,00,80,00, 
00,00,00,30,00,00,30, 672 

228 DATA 80,00,C0,80,03,00,80,0C,00,80,30,00,80, 
C0,00,83,00,00,FC,00, 1470 

229 DATA 00,F0,00,00,C0,00,00,00,00,00,02,00,00, 
02,00,00,01,00,00,09, 446 

230 DATA 00,00,0A,00,00,0A,00,00,0A,00,00,02,00, 
00,02,00,00,02,00,00, 36 

231 DATA 00,00,00,00,00,00,00,00,00,00,00,00,0Fy 
00,00,F3,00,03,0C,00, 273 ° 

232 DATA 3C,30,00,C0,C0,00,03,00,00,0C,00,00,00, 
00,00,00,00,00,30,00, 567 

233 DATA 00,34,00,00,94,00,00,A0,00,00,A0,00,00, 
A0,00,00,80,00,00,80, 936 

234 DATA 00,00,00,00,30,00,00,30,80,00,C0,80,03, 
0C,80,0C,0C,80,30,F0, 1127 

235 DATA 80,CF,00,83,F0,00,FC,00,00,F0,00,00,C0, 
00,00,00, FF,FF,FF,FF, 2410 

236 DATA FF,FFSFFSFFSEFsFFAFFSFFAFFSFFSFFSFF,FF, 
FF,FF,FF,FF,FFSFF,FF, 5100 

237 DATA FFSFFSFFSFFSFFAFFSFFAFFAFFAFFSFFSFFAFF, 
FF,FF,FF,FF,FF,FF,FF, 5100 

238 DATA FFAFF,FFSFFAFFSFFSFFSFFAFFFFAFFSFFAFF, 
FF,FF,FF,FF,FF,FF,00, 4845 

239 DATA 00, 0 

1000 PRINT: AD=57344: FORI=1005T01071:READA$,PS:C= 
0: FORN=1TOLEN (A$)STEP2 

1001 A=ASC(MID$S(A$,N,1))-48:B=ASC (MID$ (A$,N+1,1) 
)-4B3 A=A+7# (A>9) : B=B+7# (B>9) 

1002 POKEAD, 16*A+B:C=C+16#A+B: AD=AD+1 

1003 NEXT3PRINTIs "{SPACE3"3 3 IFC< >PSTHENPRINT"ERR 
OR":STOP 

1004 PRINT"OK"=NEXT 

1005 DATA FFFFFFFFFFFEFAFAFFFFFFFFAAAAAAAAFFFFFF 
FFFFBFAFAFEAEAEAABABABAB, 6919 

1006 DATA AB80000000000000000200000000000000ABAB 
ABZAZAZAZAZAABABABABABAB, 2029 

1007 DATA ABABABABABABABABABAAZAZAZAZAZAZAZAZAZA 
ZAZAZAZAZAZAAARAAAAAAAAA, 3332 

1008 DATA EAEAEAAAB0000000000080AA00000000000000 
AAO2000000000002AAAAAAAA, 2152 

1007 DATA AAABABABFAFAFEFFFFFFFFFFAAAAAAAAFFFFFF 
FFAFAFBFFFFFFFFFFFAA0000, 6398 

1010 DATA 0000000800AA00020A02020200AA002A022A20 
ZAOOAA0O02AOZOAOZZAO0AAOO, 964 

1011 DATA 22222A020200AA002A202A022A00AA002A0208 
082000AA002A222A222A00AA, 1240 

1012 DATA: 002A222A022A00AA002A2222222A0055555452 
AAZAAFBFSSSS1ISOOBOABBEBF, 2204 

1013 DATA 55555515008F8F9FS555551514EAZFEFS24BAF 
ZEBE2BAEEFCICOEOBOBBFEAA, 3842 

1014 DATA FF551500000000A8RE151505050525A982FBFB 
FFAAFFFAFAZAABBEBEABBEBE, 4018 

1015 DATA BEBES30080BAFFEEEEFFEAE1ZOABEEEEEEZEEE 


<146> 
<27> 
<176> 
<126> 
<9 
<194> 
<52> 
<137> 
<249> 
<112> 
<184> 
<39> 
<155> 
<110> 
<90> 
<35> 
<147> 
<100> 
<225> 
<233> 
<216> 
<8> 
<40> 
<110> 
<8> 
<76> 
<777 


<212> 
<2> 


<38> 


<139> 
<20> 


<135> 
<121> 


<138> 
<221> 
<175> 
<223> 
<91> 

<224> 
<74> 

<138> 
<221> 
<215> 


programme 


AEFFBF&89266E4BCF2CA2BAF, 5520 
101& DATA AAFEFBBFABBSZAOBBSAABBABBOSOBOOOAAFFEFFF 
AAI6ACFAFFAFFFAFBOBSBDAA, 5510 
1017 DATA AABOAZAZB2ZFFLCAAAAABOBZBESABEDAAAAAF2C 
SC13BADSAAAAFFSFZSOEEACS2, 4628 
1018 DATA F7AAAAFSCOBE8793BFAABFBOBSBBSBS1B7AAFF 
SOS0EFAFAAOOC0000000A2AA, 4540 
1019 DATA AA000000000008AAAA00000000002CAAAA0000 
000000FOF3AAAA00000000F3, 1968 
1020 DATA F3AAAA00000000B0B3SBFAAO0000000FF30FFAA 
00000000555555553553545450, 2700 
1021 DATA 5555555555551505BOBCB08080808080300C03 
00000000000808030C000C00, 1822 
1022 DATA 00000000E.030000000003000003000003000C0 
BOBCBOB080808080300C0300, 18197 
1023 DATA 00002F0B020000C000008FEFEFBF2FOBO2O2FF 
SFACAFAFBEFFFFFFFFBFFFB3, 3799 
1024 DATA FFAFFFEFFFEFFFFFECFFFFECFFCESSFEFFFFBFF 
FFFFSF2FFFFBFFFEDSFSFSFS, 6974 
1025 DATA FSADBDBFSS555ISI6I6 FF HA5FFTSTTISISASER 
E20000003000000000BF2ZFOA, 2911 
1025 DATA 0200000000FFFFFFFFBFZ2BO200EFEFFFAFBFEF 
AFZBFFFFSFFFSFFFFFFFFFBF, 4916 
1027 DATA BEFFFFFFBFFSBFCFBFBFECFFFFFBSSDSDSDSFS5 
ECSB5SBD6I65H 56565. 56 16ABA, 5643 
1028 DATA ZA&BSE6F6F3ESSFFAFOA0000000000BFFBFFAF 
OAO00000EFFFFFFBBF2A0000, 3183 
1027 DATA FFBFBSBFFFAFOBOOSSD1CSFSFSDSASOASSSSSS 
SSIISSSSIIAIGCHSAAAFSEGEAE, 4144 
1030 DATA #EBAFFAAFFBFEEBEEFO20000000000C000AA00 
000000000000A50A00000000, 23197 
1031 DATA 00006FAA000000000000FEAF0OAOBOBOBOB0895 
252509090202005555555555, 1439 
1032 DATA 55559500000C000000000055555555535555795 
SSS559SF777FEFFIFSFSFFFFF, 2727 
1033 DATA FFFFFFFESSSCFD3SSFFBFSEEFSSSSOSSSFOFFFF 
FCS555577FFF3SFFFFESSSSSS, 4945 
1034 DATA SSDSFSEFFF9525250B0B0200007F9595F2BFFF 
BFBFFFFFCEFBFFSFFSF2FFFSB, 4609 
1035 DATA SFFFESFFSFFFFFFFFBFEFFFFSFFFFFFEFFFFFEF 
FEFFFSFFFFSFFBEFFFFCOFFSS, 7031 
1036 DATA DSFDFF3SFSFCEFEFSSSSSSSSSSDSFSDS00000C00 
030000002B2F0BO202000000, 2477 
1037 DATA ESFFEBFBEFBFBF2FFSEFASEFFFBFFFEFFFFEFS 
FFFFCEEFZFBEFFBFFFFSBBFF, 6788 
1038 DATA FFFFFEFSFFEFFFFFFBEFFFESFFFFFSFSFCDSFS 
FSFSD7FDCDFFS55555411555, 6469 
1039 DATA DSDSFFFFFFFFFFFEFCEFEFFFFFCFIFOFOC1O1CO 
001100404 1054AFFFFFCFOCS, 5744 
1040 DATA C5155444151055155510554145545544415555 
FFFFEFFFFFFFFFFDFFFFFFFF,ÖO4363 
1041 DATA FDFS5SSSSFCF1C1150555555554555055555555 
555551555555555955SFAFSF, 3222 
1042 DATA 4755545551FFFFFFFFFFFFSFSFFFFFFFFFFEFFF 
FFFSFFFFFFFFFDDSASSSFFFD, 6176 
1043 DATA FS55555551555D5511555455555555445555554 
SSSSSSFFFFAFSSSASSSSSAFF, 3257 
1044 DATA FFFFFFFFAFSFSTFEFFFFFFFFFFSFSOFFFFFEFFF 
FFFFFFOFFFFFFFFFFFFSDSSS, 6604 
1045 DATA FFFFFADS555515550554555555155559595455 
45555555557 F5F5155555555, 3292 g 
1045 DATA SSFFFFFFFFS745555545505505515555555505 
415405555555FFFF7F7F4F57, 3307 
1047 DATA 575SFFFFFFFFFDFDFiAF1FDF1DS5415554551FF 
FFFEFEFCFOFOCOSFOFOFOFOS, 5276 
1048 DATA 0340045455555555559525FF7F7FAFSFS05454 
FFFFFFFFFFFFSFOFFFFFFFFF,„O4325 
1049 DATA FFFFFFFCEFFFFFCFICSC4054515555455155554 
SS5I3I555545555555FFFFFF, 4466 
1050 DATA FFFEFCFICOCSCO100455554155444055551511 
SOSSFFISF3FAFSS1IS54540902, 3167 
1051 DATA 000006.0000005555A507020000054F50505455 
952525FDF1F5101505515415, 1959 
1052 DATA 15555555555545555554451555545555555555 
S45553555FFFFFDFCFiD55515, 33567 
1053 DATA 65155515555555511505545555555455515151 
er ser 2380 

54 DATA SS3FISFSF4AITITIT45409020200000000035555 
BETSITZNOTGZBSARSAASTSTS, 1588 
1055 DATA 55551555555555055445555555555555155155 
555553551555155455555515, 2213 
1056 DATA 5555553455555555551555555559599 1455555 
7F3FOFSFS3S35I5595952525, 2538 
1057 DATA 0902U2005454555555555554FFFFFFFFFCFCFO 
FOFFFFFFSFOFOFOSOSFFFFFF, 4517 
10598 DATA FFFFFFFFFFSSSSSSSSASOA00005555555555A5 


Compube mib 





<206> 
<37> 
<204> 
<252> 
<190> 
<i> 
<106> 
<121> 
<118> 
<96> 
<245> 
<B4> 
<105> 


"<101> 


<209> 
<35> 
<127> 
<99> 
<251> 
<186> 
<80> 
<197> 
<88> 
<70> 
<211> 
<a09> 
<98> 
<56> 
<25> 
<19> 
<10> 
<142> 
<214> 
<33> 
<120> 
<14> 
<192> 
<77>2 
<178> 


# 
<115> 


<92> 
<202> 
<101> 








programme 


0A005555553555555A9025555, 3241 

1057 DATA 5555555555A55555555555555559555 15555555 
5555555455545555555555FF, 2819 

1050 DATA FFFFFOF1CAD404C00411114450151544140155 
S115S11SSFFFFSFSFAFAFAFAF, 3153 

10581 DATA OA0O3000000000000A50A00000000000055A50A 
0C0000000051555595250AC0O, 1097 

19062 DATA O0FFFFFFFFFFFFFCEFOFCFEFOCA140155541155 
454455555555544445515155, 4199 

1063 DATA 55555555545555555515131I535754545555C4 
c51511514555545555551545, 2426 

1054 DATA 555555555515155555554555555554545 1555 
555554555555555555545555, 2493 

1065 DATA 551555333 F7FAFSFSFSF475700000000000000 
00000000000000020C30F030, 1338 

10586 DATA 3SCFFFSFO300000000000C00000000C0002023C 
SO2CSOFF2FCO2CFOSCOO0000, 2092 

1067 DATA 00C020FC0C000002020CF33SC3000ECCFFOSF2O 
08202880CCCFF0207EE00SAA, 3047 

1068 DATA 002A2222222A00AA00020A02020200AA002A02 
ZA2OZAOOAAO02A0O20A022A00, 972 

1069 DATA AA0022222A020200AA002A202A022A00AA002A 
202A222A00AA002A02080820, 1238 

1070 DATA 00AAR002A222A222A00AA002A222A022A000040 
0000000000FF000000000000, 1015 

1071 DATA 000000, O0 

2000 FORI=0T07 


2001 H(48+T)=1:H(65+1)=I+10:NEXT 

2002 FORI=42152T043151:READA$ 

2003 H=ASC(LEFT$ (A$,1)) 2 L=ASC (RIGHTS (A$,1)) 

2004 D=H(H)#16+H(L):S=S+D:POKEI,D 

2005 A=A+1: IFAXZOTHENNEXT:A=-1 

2006 PRINT"ZEILE: "z2011+Z5 

2007 READV: Z=Z+1: IFV=STHEN2009 

2008 PRINT"PRUEFSUMMENFEHLER{SPACE} ! "3 2010+Z:5T0 
P - 
2009 -IFA<OTHEN2F00 

2010 5=0:A=0:PRINT:NEXT:G0T02900 

2011 DATA CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD 
„ED,CD,CD,CD,CD,CD,CD, 4100 

2012 DATA CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD 
‚CD,CD,CD,CD,CD,CD,CD, 4100 

2013 DATA CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD 
‚„CD,CD,CD,CD,CD,CD,CD, 4100 

2014 DATA CD,CD,CD,00,01,01,01,01,01,01,02,CD,CD 
‚CD,CD,CD,CD,CD,CD,CD, 2468 

2015 DATA CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD,CD 
‚„CD,CD,CD,CD,CED,CD,CD, 4100 

2016 DATA CD,CD,CD,03,04 ,EA,EA,EA,EA,05,06,CD,CD 
‚ED,CD,CD,CD,CD,CD,CD, 3414 

2017 DATA CD,CD,CD,CB,CC,CD,CD,CD,CD,CD,CD,CD,CD 
‚„ECD,CD,CD,CD,CD,CD,CD, 4097 

2018 DATA CD,CD,CD,07,EA,EA,EA,EA,EA,EA,09,CD,CD 
‚CD,CD,CD,CD,CD,CD,CD, 3880 

2019 DATA CD,CD,DS,D64,D7,D8,CD,CD,CD,CD,CD,CD,CD 
‚CD,CD,CD,AS,A6s,CD,CD, 4059 

2020 DATA CD,CD,CD,07,EA,EA,EA,EA,EA,EA,07,CD,CD 
„ED,CD,CD,CD,CD,CD,CD, 3880 

2021 DATA DD,DE,DF,EO,E1,E2,CD,CD,CD,CD,CD,CD,CD 
„ECD,CD,AE,AF,BO,B1,CD, 4093 

2022 DATA CD,CD,CD,07,EA,EA,EA,EA,EA,EA,09,CD,CD 
‚CD,CD,CD,CD,CD,CD,84, 3807 

2023 DATA EZ,E4,ES,E6,E7,E8,E9,CD,CD,CD,CD,CD,CD 
‚„CD,B9,BA,BB,BC,BD,BE, 4170 

?0?4 DATA CD,CD,CD,08,EA,EA,EA,EA,EA,EA,OA,CD,CD 
„CD,CD,CD,CD,CD,85,86, 3739 

2025 DATA CE,CF,D0,D1,D2,D3,D4,A2,CD,CD,CD,CD,A3 
„A4,04,05,05,06,C67,67, 3958 

2026 DATA C8,CD,CD,0B,0C,15,16,13,14,0E,0F,CD,CD 
‚CD,CD,CD,84,87,88,87, 2315 

2027 DATA EA,EA,D?,D9,DA,DB,DC,A7,AB,AF ,AA,AB,AC 
„AD,D2,D4,D2,D2,D2,D2, 4011 

2028 DATA D2,8F,90,10,11,11,11,11,11,11,12,CD,CD 
‚CD,84,8B,8C,8D,8E,D2, 2158 

2029 DATA EA,EA,EA,EA,EA,EA,EA,B2,B3,B4,B5,B6,B7 
„R8,D2,D4,D2,D4,D2,D2, 4169 

2030 DATA D3,D2,95,96,97,CD,CD,CD,CD,CD,CD,71,92 
‚93,94,8D,D2,D4,8D,8D, 3532 

2031 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,BF,CO,C1,C2 
‚C2,D2,D3,D2,C1,C2,D2, 4299 

2032 DATA D2,D2,D2,D2,9D,9E,9F ,98,99,94,9B,9C,D2 
‚8D,D2,D2,8E,8E,BC,D2, 3537 

2033 DATA 41,EA,EA,3F ‚EA,EA,EA,EA,EA,EA,EA,C9,D2 
„D3,D2,D2,D3,D2,D2,C2, 4101 

2034 DATA CZ,C3,D2,D3,D2,D2,D2,D2,A0,A1,C3,D2,D3 
„D2,D2,D3,D2,D2,D4,D2, 4061 


<40> 
<233> 
<2> 
<94> 
<136> 
<116> 
<80> 
<109> 
<177> 
<195> 
<26> 
<32> 


<47> 


.<214> 


<74> 
<21> 


<7&> 
<22> 
<108> 
<1893> 
<8&> 
<230> 
<118> 
<244> 
<204> 
<242> 
<243> 
<244> 
<179> 
<246> 
<170> 
<1535> 
<169> 
<237> 
<171> 
<222> 
<43> 
<o> 
<253> 
<250> 
<190> 
<71> 
<113> 
<49> 
<124> 
<40> 
<217> 
<211> 


<128> 


2035 DATA EA,EA,EA,40,ER,EA,EA,EA,EA,EA,EA,EA,67 
‚68,D3,D2,D2,D2,D2,D2, 4106 

2036 DATA D2,D2,C2,C3,D2,D2,D3,D2,D2,D2,D2,02,03 
‚D2,D2,D2,D2,D2,RC,D2, 4117 

2037 DATA 6A,50,EA,EA,EA,S50,EA,EA,EA,EA,EA,EA,6? 
‚67,68,D2,D2,D3,D2,D2, 3735 

2038 DATA D3,D2,D2,D2,D2,D3,D3,D2,D2,D2,D2,D2,D2 
‚BC,D2,D2,D3,D2,D2,D2, 4182 

2039 DATA EA,EA,EA,S50,EA,EA,EA,3F,EA,EA,EA,EA,EA 
‚ER,67,6A,6B,6C,6D,6E, 3594 

2040 DATA 6F,70,D2,D3,D2,D2,D2,8E,8D,D2,D2,D2,D2 
‚D2,D3,D2,02,D2,D2,D2, 3868 

2041 DATA EA,EA,EA,EA,EB,EC,ED,40,EA,EA,EA,EA,EA 
„EA,EA,71,72,73,74,75, 3921 

2042 DATA 76,77,78,79,D2,D2,D2,D2,D2,D2,D2,D2,D2 
„D2,D2,D2,D2,D2,8E,D2, 3770 

2043 DATA EB,EC,ED,EA,EE,EF,FO,EA,50,EA,EA,EA,EA 
‚EA,EA,7A,7B,7C,7D,7E, 3997 

2044 DATA 7F,80,81,82,83,C1,C2,C3,D2,D2,D2,D2,8E 
‚D2,D2,8E,3D,3E,D2,D2, 3314 

2045 DATA EE,EF,FO,EA,F1,F2,F3,EA,EA,EA,EA,3F,EA 
‚EA,EA,ER,EA,46,47,48, 4059 

2046 DATA 49,4N,4B,4C,4D,D2,D2,02,D2,8E,4E,4F,1D 
‚iE,1F,20,21,22,23,24, 1774 

2047 DATA F1,F2,F3,EA,EA,41,EA,EA,EA,EA,EA,40,EA 
„ER,EA,EA,EA,EA,S50,51, 4058 

2048 DATA 52,53,54,55,56,57,D2,8E,D2,D2,58,59,25 
+26,27,28,29,20,2B,2C, 1780 

2047 DATA Fi1,F2,F3,EB,EC,ED,EA,50,EA,EA,EA,43,EA 
‚50,EA,EA,EA,EA,SO,EA, 4081 

2050 DATA 50,EA,5A,5B,5C,5D,5E,5F,8E,D2,60,61,2D 
„2E,2F,30,31,32,33,34, 1802 

2051 DATA EA,EA,41,EE,EF,FO,EA,EA,EA,EA,EA,EA,EA 
„EA,EA,EA,EA,EA,EA,EA, 4526 

2052 DATA EA,EA,EA,EA,50,EA,50,EA,63,64,65,66,35 
,36,37,38,39,3A,3B,3C, 2418 

2053 DATA EC,ED,EA,F1,F2,F3,43,EA,41,EC,ED,EA,50 
„EA,EA,S50,EA,3F,EA,EA, 3899 

2054 DATA EA,EA,EA,EA,EA,EA,EA,EA,50,EA,EA,41,42 
„50,50,50,50,50,50,EA, 3265 

2055 DATA EF,FO,EA,3F,EA,41,EA,EA,EE,EF,FO,EA,EA 
„41,EAR,EA,EA,40,EA,EA, 4027 

2056 DATA 50,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,43,EA 
„50,EA,EA,EA,SO,EA,EA, 4051 

2057 DATA F2,F3,EA,40,EA,EB,EC,ED,F1,F2,F3,EA,EA 
„ER,EC,ED,EA,SO,EA,EA, 4409 

2058 DATA EA,50,EA,50,EA,50,EA,50,EA,EA,EA,44,EA 
„EA,EA,EA,SO,EA,EA,EA, 3744 

2057 DATA EA,EB,EC,ED,EA,F1,F2,F3,EA,43,EA,EA,EA 
„EE,F2,F3,EA,EA,EA,EB, 4565 

2060 DATA EC,ED,EA,EA,ER,EC,ED,50,50,EA,EA,45,50 
‚50,50,50,50,50,50,EA, 3140 

2061 DATA EA,EA,EA,EA,EA,EA,EA,CF,DO,ER,EA,EA,EA 
„EA,EA,EA,EA,EA,EA,EA, 4627 

2062 DATA EA,EA,EA,EA,EA,EA,EA,ER,EA,EA,ER,EA,EA 
„ER,EA,EA,EA,EA,EA,EA, 4680 

2063 DATA EA,EA,EA,EA,EA,EA,D1,D2,D3,D4,D5,EA,EA 
‚EA,EA,EA,EA,EA,EA,EA, 4565 

2064 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA 
‚ER,EA,EA,EA,EA,EA,EA, 4680 

2065 DATA EA,EA,EA,EA,EA,D6,D7,D8,D7,DA,DB,EA,EA 
„EA,EA,EA,EA,EA,EA,EA, 4575 

206& DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA 
„EA,EA,EA,EA,EA,EA,EA, 4680 

2067 DATA EA,EA,EA,EA,EA,DC,DD,DE,DF,EO,E1,EA,EA 
‚ER,EA,EAJEA,EA,EA,ER, 4611 

2048 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA 
‚ER,EA,EA,EA,EA,EA,EA, 4680 

2069 DATA EA,EA,EA,E2,E3,E4,ES,E6,E7,EB,E9,EA,EA 
‚EA,EA,ER,EA,EA,EA,EA, 4644 

2070 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA 
„EA,EA,EA,ER,EA,EA,EA, 4680 

2071 DATA EA,EA,EA,AF,BO,B1,B3,B4,B5,B6,B7,EA,EA 
„EA,EA,EA,ER,EA,EA,EA, 4241 

2072 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA 
‚ER,EA,EA,EA,EA,EA,EA, 4680 

2073 DATA B8,B9,BA,BR,BC,RD,BD,BE,BF,C0,C1,EA,EA 
„EA,EA,EA,EA,EA,EA,EA, 4180 

2074 DATA EA,EA,EA,EA,EA,EN,EA,EA,EA,EA,EA,EA,EA 
‚EN,EA,EA,EA,EA,EA,ER, 4680 

2075 DATA C2,C2,C02,C3,C4,C5,C6,C7,CB,C9,Ch,95,96 
„I7,ER,EA,EN,EA,ER,EA, 4024 

2076 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,17,18,EA,EA 
„ER,EA,EA,EN,EA,EA,ER, 4259 

2077 DATA 01,02,C2,C2,C2,C2,C2,C02,CB,CC,CD,98,99 
„9A,9B,9C,ER,EA,EA,EA, 2485 


Compute mi 


<77> 
<109> 
<78> 
<122> 
<a5> 
<150> 
<28> 
<32> 
<245> 
<5> 
<214> 
<180> 
<215> 
<227> 
<239> 


<106> 
<193> 
<2> 
<32> 
<144> 
<233> 
<230> 
<81> 
<158> 
<126> 
<124> 
<110> 
<195> 
<132> 
<197> 
<210> 
<199> 
<a7> 
<201> 
<54> 
<203> 
<233> 
<205> 
<204> 
<207> 
<o> 
<69> 


<5a> 








2078 DATA EA,EA,EA,EA,EA,EA,EA,EA,19,1A,1B,1C,EA 
„EA,EA,EA,EA,EA,EA,EA, 3850 

2077 DATA 08,09,02,C2,C2,C2,C2,02,02,C2,CE,9D,9E 
„IF ,AO,A1,A2,EA,EA,EA, 3434 

2030 DATA EA,EA,EA,EA,EA,EA,EA,2C,2D,2E,2F ,30,EA 
„EA,EA,EA,EA,EA,EA,EA. 3740 

7081 DATA 10,11,C2,00,01,02,02,C2,C2,02,02,A3,A4 
‚AS5,A6,A7,AB,AF ,EA,EA, 2830 

2082 DATA EA,EA,EA,EA,EA,31,32,33 
„EA,EN,EA,EA,EA,EA,EA, 3228 

2083 DATA C2,C2,C2,03,08,09,C2,C2,00,01,02,C2,C2 
„AA,AR,AC,AD,AE,EA,EA, 2709 

2084 DATA EA,EA,EA,EA,39,3A,3B,3C0,3D,3E,3F,20,40 
„41,EA,EA,EA,1D,EA,EA, 2716 

2085 DATA C2,C2,C2,0F,10,01,02,C2,03,08,09,02,C2 
„7B,7C,7D,7E,7F,80,EA, 2205 

2086 DATA EA,EA,42,43,EB,EB,EB,44,EB,35,EB,EB,20 
„45,46,1E,1F,20,21,EA, 2663 

2087 DATA 02,C2,02,C2,07,08,09,C02,0F,12,11,C2,C2 
‚C2,81,82,83,84,85,86, 2223 

2088 DATA 47,48,49,EB,3C,EB,3B,EB,EB,3E,EB,EB,EB 
‚3C,EB,22,23,24,25,26, 2517 

2089 DATA 09,C2,C2,C2,0F,10,11,C2,C2,02,02,02,C2 
‚C2,02,87,88,89,8A,8B, 2876 

2090 DATA BC,EB,EB,EB,EB,EB,EB,EB,EB,35,EB,2B,EB 
EB,24,EB,23,EB,28,29, 3443 

2091 DATA 91,C02,02,02,C02,02,02,02,00,01,02,02,C2 
‚C2,C2,02,80,87,8E,8F, 3039 

3092 DATA 90,EB,2B,EB,3C,3B,EB,EB,EB,3D,EB,EB,EB 
‚ZB,EB,27,EB,23,2A,2B, 2919 

2093 DATA C2,00,01,02,C2,C2,C2,C2,07,08,09,02,C2 
‚E2,C2,C2,91,92,BD,93, 2594 

2094 DATA 94,ER,EB,EB,EB,2B,ER,EB,EB,3B,EB,EB,EB 
‚ER,ER,EB,2B,EB,25,EB, 3855 

2095 DATA C2,07,08,09,C02,00,01,02,0F,10,11,01,02 
‚C2,C2,02,02,68,88,88, 1618 

2096 DATA &A,6P,EB,EB,EB,2B,EB,EB,EB,EB,2B,EB,EB 
JEB,ER,EB,2B,EB,EB,EB, 3867 

2097 DATA C2,0F,10,11,C02,07,0D,01,02,C2,07,08,09 
‚C2,C2,02,02.02,6C,83, 1886 

2098 DATA &D.6E,6F ‚EB,2B,EB,EB,EB,EB,EB,EB,EB,EB 
‚2B,EB,EB,EB,EB,EB,EB, 3941 

2099 DATA C2,C2,C2,C2,C2,03,01,08,09,C2,0F,10,11 
‚C2,02,02,02,C2,70,71, 2428 

2100 DATA BD,72,73,74,EB,EB,EB,EB,EB,2B,EB,EB,EB 
‚S6,EB,„EB,EB,EB,EB,EB, 3921 

2101 DATA C2,C2,00,01,00,01,07,08,11,C2,C2,C2,C2 
‚C2,C2,00,01,02,02,75, 1900 

2102 DATA 76,77,78,797,7A,EB,2B,EB,EB,EB,EB,EB,EB 
‚35,EB,EB,EB,EB,EB,EB, 3751 

2103 DATA C2,C2,07,08,07,08,0F,10,11,C02,C2,00,01 
„02,C2,0F,10,11,C02,C2, 1487 

2104 DATA 44,77,88,4B,4C,4D,4E,4F,50,50,51,EB,EB 
‚S4,ER,EB,EB,EB,EB,EB, 2887 

2105 DATA C2,C2,0F,10,11,10,11,C2,00,01,02,07,08 
‚09,C2,07,08,09,C02,C2, 1296 

2106 DATA C2,52,53,3C,54,55,56,57,58,59,5A,EB,EB 
‚ER,EB,EB,EB,2B,EB,EB, 2951 

2107 DATA 01,02,C2,00,01,07,00,01,07,08,09,0F,10 
11,02,62,02,C2,62,62, 1442 

2108 DATA C2,C2,5B,5C,5D,5E,3C,BD,5F,3C,EB,EB,2B 
.ER,ER,EB,EB,EB,EB,EB, 3320 

2109 DATA 08,09,02,07,08,09,0F,10,11,10,10,0A,10 
‚11,02,02,02,C2,00,01, 1135 

z110 DATA 02,C02,C02,C02,60,61;62,63,64,65,65,66,67 
‚ER,ER,2B,EB,EB,2B,EB, 2742 

2900 FORI=0T09 

2901 H(48+T)=1:H(65+1)=I+10:NEXT 

2902 FORI=41152T042151:READA$ 

290% H=ASC (LEFT$(A$,1))2L=ASC (RIGHTS (A$,1)) 

2904 D=H(H)*16+H(L) :5=S+D:POKEI,D 

2905 A=A+1: IFA<ZOTHENNEXT:A=-1 

2906 PRINT"ZEILE: "32061+Z; 

2907 READV: Z=Z+1: IFV=STHEN2909 

2908 PRINT"PRUEFSUMMENFEHLER{SPACE} ! "3 2060+Z:5TD 
2 
2909 


‚34,35,36,37,38 


IFASOTHENSO00O0 

2910 S=0:A=0:PRINT:NEXT 

3000 POKES6576 ,PEEK (56576) AND252: POKESS272,8:POK 
E648, 192: POKES3270,21& 

3005 POHEST269 ,?55: POKESI276 , 255: POKESS286 „6: POK 
ES53296 ,0:POKES3287,7 

3006 FOKES3S288,7:POKESS289,7 

3010 SYSZ0000 


ENDE DES LISTINGS 


<92> 
<74> 
<112> 
<180> 
<9> 
<44> 
<86> 
<136> 
<142> 
<221> 
<228> 
<6> 
<208> 
<64> 
<219> 
<12> 
<204> 
<79> 
<29> 
<232> 
<99> 
<65> 
<191> 
<79> 
<248> 
<50> 
<25> 
<175> 
<134> 
<132> 
<52> 
<234> 
<23> 
<210> 
<157> 
<196> 
<158> 
<244> 
<63> 
<31> 
<254> 
<128> 
<67> 
<100> 
<209> 
<86> 


<114> 
<49> 


programme 


©. -44 LISTING + CHECKSUMMEN (C V1.0) 


ı AD=27344:FORI1=1000T01 184: READA$ ‚PS: C=0: FORN=1T 
DI EN(A$)STEPZ 

2 A=ASC (MID$ (A$,N,1))-48:B=ASC (MID$ (A$,N+1,1))-4 
8: A=Ar+7#(A>9) :B=B+7# (B>9) 

3 FOKEAD, 16*#A+B: C=C+PEEK (AD) : AD=AD+1 

4 NEXT=:PRINTIS "{SPACE}" 3: IFC< >PSTHENPRINT"ERROR" 
:STOF 

5 FRINT"OK":NEXT 

10 POKE43,208: POKE44 , 106: PDKE46, 130: SAVE"SKI{SPA 
CE’MC" ,8,12:5Y564738:REM DATASETTE „i,1 

1000 DATA 555555555555575D75FS757DFFF7F575555555 
5555D555557F7D757557575F , 3721 

1001 DATA FFEDFDFFEDFFFFFFFFBDFDFDBFSSISFFF55555 
555575F5SF575555D5557577D, 5495 

1002 DATA 75756D75FF4FDS6DF57D555555D575FDSDSSFF 
70755D5757577DEB7F7FFIFF, 4503 

1003 DATA FFFFFFBSFDFFFFSFA77FEFFDFFFIFSFSESFSDD 
D555D555757D5SFFESS57575D, 5808 

1004 DATA F77D7SS5EDDFFS7F65594569555555F5D5SFD7D 
53777FSDSFSFSFF77FF7/FDED, 4713 

1005 DATA FFFFEFEFEFFDBSBS777FFFFFFFIFFDFDEFDBFF 
FFDBFDFFD775D657FEF70000, 6315 

1005 DATA 00010105050500000000404050500000000000 
01050515151555575DFD5SF50, 1072 

1007 DATA D474D55555FFS9I000000000040404000000004 
041515150000000000000107, 1326 

1008 DATA 00000105155F77DFSDSSF7DFFSFFDFF7404050 
9OFAFSFSFDO77DF7DFD7FFFD, 4746 

1009 DATA FDFF7IFFFFIFFFFFFSFFFFFFFFDFIFEFFFFTFDFT 
FFFFFFFDFF7FA4OCO7070FOFC, 6635 

1010 DATA FCEFFFFFFFF7TDFFFIFFFDFFFFFFFFFFFFFFFTFF 
FFDFDFFFFFFFFFDDFFFDFFFF,„ 7472 

1011 DATA FFFFFFFFFFIFFFFFFFFFFFO0000001053DSDF7 
151DSDSFD7765SFFFS7F7F7F7, 4833 

1012 DATA SFIFF7FFDFDSFFSFDS7FDSD7SODOF4AFA4FATSFS 
FDO000000000030F0DO10FOF, 3975 

10153 DATA 1F7FFFFFFDFD7TFDFFSFSFSFIFFFFFIFTIFFFFD 
FFFFFIDFSFFFFFFFODFFFFFFD,„ 6175 

1014 DATA FFFDFFFFDFFFDS7FFDFDF7F7FFFF40CO40D0D4 
7AFSFFO00000030F377FFF37, 5212 

1015 DATA SFDFIFFFFEFFTFIFDFSFFFFFTFFFTFFTFEFFFFF 
FFFFFFFITIFFFFFEFFFFFFFF, 7237 

101& DATA FD7IFFFDFFFDFFFFFFFFFFFFFFFDFFFFFFDFFFF 
FFIFFFFFFFCO4040FODOFOFB, 7020 

1017 DATA FC00000000000001070F073F7FFFFFFFDFFFFF 
FFDFFFFFFFFFFFFFFODFFFFFF,„O4996 

1018 DATA FFFFOOOOCOCODEDEFCEFS000000000000000300 
0000030F3FSFFF3SF3SFFFFFF7, 3116 

1019 DATA FFFFFFAF&6FAFSBSBSASASSFBFEFFFFFFFFFFFF 
FIFEBEEFFBFEFEFEFFFFFFI7, 6177 

1020 DATA E9FEBFEBFFFFFFFFSFASFAFFFFFFFFFFFFS7AF 
FEFFFFFFFFFFFFSSAAFFFFFF, 7033 

1021 DATA FFFFFFFF7FABSBSBS6545555S5SFFFFFFFFFFBF 
&FAFFEFEFEFEFEFEFEFEEEEF, 6076 

1022 DATA EFEFEFEFEFEFAFFAFFFFFFFFFFFFFFABFEFFFF 
FFFFFFFFFFAAEEEEEEEEEEFF, 7469 

1023 DATA FFAAFFFFFFFFFFBFBFFFFFFFFFFFFFSBS65655 
SSII5SSSFFFFFFBFABS65555, 5619 

1024 DATA FEFEFEFEFEFEAESAEFEFEFEFEFEFEFEFEEEEEE 
EEEEEEEEEES6555555555555, 6200 

1025 DATA SSAF6BS655SSSSSSSSFFFFABS6SSSSSSSSFFFF 
FFAFSASSSSSSEEEEEEEEAASS, 4477 

1026 DATA SSSSFFFFFFFFAASSSSSSFFFFFFFFFFAASSSSFF 
FFFFFFFFFFABS66ESASASAS6, 5483 

1027 DATA S65655FFFFFFFFFFFFFFBFBEEEEFEFFBFBFBFE 
7F7FBFIFFFEFEFETBFBFAFöGF, 6214 

1028 DATA 6FSBSBSBFEFEFFFFFFFFFFFFFBF9FBIBEBEAFAF 
BBFEFFFFF7F7FBFIFIFS6S6ES6, 5810 

1027 DATA SS55555555FFFFFFBFBFREF&F6FBBBBBABABBBB 
RBBRBE7E7FIFIBEBEEEEEFFFF, 5805 

1030 DATA FFFFFF7F7FIFSBSBSBS6565655S3SFFFFFFFFFF 
FFBFBFBBBEBBRBBBRBBBBBEF, 5526 

1031 DATA FBFBFEFEFFFFFFIFETETFFFEBEEFEFFFFFFFFF 
7F7FIFE7S656555535535535, 5913 

1032 DATA 979FBD97BF&F&FSB7AF7DDFF7SFFDFD7000000 
FODOF47ADFRBIBFBEBEZEZFZF, 4724 


CSompute miß 








<123> 


<161> 
<176> 


<157> 
<143> 


<153> 
<238> 
<109> 
<B4> 
<9> 
<186> 
<170> 
<233> 
<167> 
<153> 
<219> 
<136> 
<21> 
<1> 
<237> 
<109> 
<60> 
<119> 
<18> 
<227> 
<133> 
<245> 
<126> 
<233> 
<3> 
<205> 
<39> 
<209> 
<87> 
<197> 
<190> 
<120> 
<2> 


<535> 
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programme 


1033 DATA 6B00000040408090905BSB565556555555FFFF 


FIFFFFBFBFBFFFFFSDFSFFFF, 4544 

1034 DATA SFFFEBEBEEEEEEEEEEEEEOE4EAFBFIBFBEBEOO 
000000000040406F6FSBSBSB, 4613 

1035 DATA 565656DFFFFFFFFFFFFFFFEEEEEEEEEEEEEEEE 
&EEFEFTBFBFBFAFESO94959F, 6419 

10364 DATA EFE7EFFBOFSFSFIFSFD7FIFFBFBFBFAF6F6FSB 
SBFEFFFFFFFFFFFFFFFIBSBE, 5783 

1037 DATA BEEEEFEFFBFFFFFF7FFFBFIFIFS6S6SASSSSSS 
SSSSEEEEEEAEAGAEEEEEFBFB, 5582 

1038 DATA FEFEFEFEFFFFEFEFETZETFBFBBBBE00000054A9 
FEFFABO000000054A9FEFFOO, 5040 

1037 DATA 000000004090E40200000000000040AF0A0000 
00000000F9FEBF2FOBOAOBOB, 1471 

1040 DATA 004090E4F9FEBFAF0000000000409090505094 
656559595600000000004050, 2575 

1041 DATA 540B0OBOBOBOBOBOBOBBBBBB2828080B0B0E4E4 
FIFFBEBE2FZF000000004040, 2778 

1042 DATA 90905655555555555555559565655957565640B 
ARABSBSBSBSBSBB080808080, S011 

1043 DATA 8080800B0B020200000000E4E4F8F9BDBEBEZE 
00000000000040409B9B&B6B, 2630 

1044 DATA &B5BSP5690909495B57DBDB700000000004040 
DOZFOBOBOBOBO20202809090, 2519 

1045 DATA EOE4E4FBFBAABFBF2A2525250ARAFFFFAAGS6S 
&SAAAAFFFFAAGS6SGSAAAAFF , 4962 

1046 DATA FFAAS9SISIAAAFFFFFAASGS6SGAAFFFFFFAASS 
SSSSAAFFFFFFAAISISISAAFF, 5312 

1047 DATA FFFFAA656565AAFBEOEOA060B080B000000000 
665655550000000000AA5555, 3193 

1048 DATA 000000000000AA550BOBOA00000000ABFFFFBF 
AF2F2FBFBFFFFFFFFFFFFFFF, 3592 

1049 DATA FFFFFFFFFEFEFEFEFEFFFFAAB000000000FFFE 
AAR0000000000800000000000, 3905 

1050 DATA 000055555555555555555655555555555555AB 
56555555555555FFAFSAS555, 2818 

1051 DATA S555SSFFFFFFAFSASSSSSSFEFEFEFEFEAESASS 
005SAAFFFFAAO0A00054AFFE, 4761 

1052 DATA FFABO200000055AAFFFFAA0058565555555555 
550001816559565555405050, 2847 

1053 DATA 54545595655956555555555555000008282020 
280A0000B0A02020A0800000, 1990 

1054 DATA 02020202020202AAFFFFEAESESEAOOROFBFSBB 
BBBSBB00000000B0A22A0800, 3352 

1055 DATA 00000080800000000A2F2F2A2929290AABFFFF 
ANS6S6S6FFFFFFFFAAS55555, 30897 

1056 DATA FAFEFFFFAA9IS959SZAAAFFFFAABS6S6500ABFB 
FOAO6080B02AZF2FOA000000, 4140 

1057 DATA O0AAFFFFBF2FOBOBOBAAFFFFAAFGAAFFARAAFF 
FFFEFBEOEOEOAAFFFEAB80000, 5247 

1058 DATA 000080800000000000000008080B0A0AOBOBOO 
0000B0AOEBFEFB0000000000, 1338 

1059 DATA 0000000B0BOBOROBOBOB2BF&GAAFFARAIGAAFFFF 
EOEOEOEOEOEOFBFEO0000000, 3541 

1060 DATA 000000AA00000000000000AB00000000000000 
OOFFFFFFFFFFFFFFFFFFFFFF, 3143 

1061 DATA FFFFFFFFFFFFFF9OFF7AO000FF004000000000 
OOFF00000000000000000000, 2880 

1062 DATA 00000000000000000000000000000000000000 
000000000000000000000000, © 

1063 DATA 0000000000000000000000FF00BEBEA0OF7FFFF 
FFFFFFBEFFFFFFFFFFFFFFFF, 4452 

1064 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFOCFZFFFF 
FFEFFFFFFFFFEFFFFFFFFFFF , 7793 

1065 DATA FFFFFFFFFFFFFFFFFFFFFF9OFFZAO000FFO040 
0000000000FF000000000000, 3900 

1066 DATA 00000000000000000000000000000000000000 
000000000000000000000000, 0 

1067 DATA 000000000000000000000000000000FF00BEBE 
AOFTFFFFFFFFFFBFEFFFFFFFF, 3432 

1068 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
ICF2FFFFFFFFFFFFFFFFFFFF, 7793 

1069 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFIOFFFZAOO 
OOFF00400000000000FF0000, 4920 

1070 DATA 00000000000000000000000000000000000000 
000000000000000000000000, 0 

1071 DATA 00000000000000000000000000000000000000 
FFOOBEBE4OFTFFFFFFFFFFBF, 2412 

1072 DATA FFFFFFFFFFFFFFEFFEFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFOCFZFFFFFFFFFFFF, 7793 

1073 DATA FFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
92FF7AO000FF004000000000, 5687 

1074 DATA 00FF0000000000000000000000000000000000 
000000000000000000000000, 255 

1075 DATA 00000000000000000000000000000000000000 
00000000FF00BFBFAOFFFFFF, 1458 


<107> 
<152> 
<100> 
<B0> 
<64> 
<71> 
<214> 
<42> 
<9> 
<b> 
<147> 
<177> 
<247> 
<106> 
<109> 
<202> 
<223> 
<200> 
<146> 
<200> 
<157> 
<17> 
<o> 
<169> 
<242> 
<123> 
<149> 
<251> 
<67> 
<173> 
<60> 
<134> 
<98> 
<177> 
<9> 
<106> 
<93> 
<181> 
<B6> 
<78> 
<222> 
<138> 


<209> 


1076 DATA FFFFFFBFEFFFFFFFFFFFFFEFFFFEFFFFFFFFFFFF 
FFFFFFFFFFFFFFFFICFZFFFF,„ 7729 

1077 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFIOFFFEOOOOFFO0040,. 6709 

1078 DATA 0000000000FF00000000000000000000000000 
000000000000000000000000, 255 

1077 DATA 00000000000000000000000000000000000000 
0000000000000000FFOOBEBE, 635 

1080 DATA 40F7FFFFFFFFFFBFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFFFFFEFFFFFFFFFFFF,„7642 

1081 DATA ICF2FFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFFFFFFFFFIOFFSAOO, 7262 

1082 DATA O0FFO0400000000000FF000000000000000000 
000000000000000000000000, 574 

10853 DATA 00000000000000000000000000000000000000 
000000000000000000000000,. © 

1084 DATA FFOOBEBE40F7FFFFFFFFFFBFFFFFFFFFFFFFFF 
FFFFFFFFFFFFFFFFFFFFFFFFJ„7257 

1085 DATA FFFFFFFFICFZFFFEFFFFFFFFFFFFFFFFFFFFEF 
FFFFAFEABDBOA&203B754CHED, 6554 

1086 DATA 7578A97F8DODDCA9018D1ADOAF028502ADBB7F 
8D12DOAF188D11DOAF518D14, 3598 

1087 DATA 03A9758D1503586&0AD17DOBD17DO2I01F019C6 
021004A9018502A602BDBD7F, 2923 

1088 DATA 8D21DOBDBR7FED12DOBAFOOGABABABAAABAOAC 
S1EAAFOBBD11DO7BAFS08501, 3726 

1089 DATA AFO0OBDB17FBDB27FRDAFFTFAZFFIBDLOAOFDOOTO 
BDBAA19DFACOBDBA4AZIDFACI, 5064 

1090 DATA BDAEASIDEECZCAEOFFIDOESAI3785015BAFI00BD 
20D08D23D0OA9I018D22D0ONF06, 4333 

1091 DATA 8DBD7FSDBE7TFAZFFAFIORFIDFFD7IDFFDBAFOBTFD 
FAD9I9IDEEDACAEOFFDOEBAZ14, 5472 

1092 DATA AIC785FBAIDSBSFCBD73S7FABAFIODF1FBBBDOFF 
18A5SFBA9I2885SFBASFC6A9I0085, A916 

1093 DATA FECADOES209B77A9008D03DOBDOSDOAF1BBDIA 
DOA?008D10DOAF568D00DOAY, 39743 

1094 DATA S548D01DOA200A000BD887FEDFECSBII07FBSFB 
C8B9907F85FCC8B9907FBSFD, 4717 

1095 DATA CBAFOOBDABTFBDAF7FBDAATFEEABTFADABTFCS 
FBFO034C7275EE00DOAFO00BD, 4436 

109& DATA AB7FEEAI7FADAFFFCESFCFOO034C8776AFI008DAF 
7FEEO1DO2OA27&6EEAATFADAA, 4562 

1097 DATA 7FCSFDFOOS4CSD7&EBCOLBSFOOZACISA76404677 
AFO008DABF7FBDACT7FBEDADFFEE, 4042 

1098 DATA AD7FADAD7FDOFBEEACFFADACTFECIO1DOEBEEAB 
7FADAB7FCIO1DODEZOEST&AD, 5074 ” 

1097 DATA 10D0F001&0ADOODOCFFEBOO1S0AFO1BDLODOAF 
O08DO0DOSG0OADFECSCI14B005, 3835 


1100 DATA 4C0577ADO0DC2910F0034C0577ADAF7FCIO2FO 
OSAFOL1BDAFFFADAFFFCIOIFO, 3546 

1101 DATA 15EEB27FADB27FCIOAFO034C2177EEB17FAIOO 
8DB27FADFBCSCILSFOOLGOAD, 4229 

1102 DATA AF7FFOO1&0AF0FBSFBAFOSBSFEAI78BBSFDAIO2 
SDAF7FAF178DFBCS6OADAFFF, 4402 

1103 DATA C901D0034C7D77ADOODCE2910DOFFAFOBBD11DO 
209B79A91BBDA1DOACBED7SAI, 3559 

1104 DATA OABS02A200A00088D0FDCADOFBCA02A502CI00 
DOEEAIOOBDAFFFAIOBED11DO, 3874 

1105 DATA 78A9I08501A9648DC17FA9IZBBDBF7FBEDLOT7FAZ 
FYBDABAA49IDOOCORDAZASIDFA, 4533 

110& DATA COBDICA69DFAC1BDFIHA7FIDEECZCAEOFIDOESAI 
37850158A97008D20D08D23D0, 4882 

1107 DATA A9038D22DOAF018DED7FEDBE7FAZFIAFOEFDOO 
D8F7DFADSAFODFDFADIFDEEDA, 4643 

1108 DATA CAEOFFDOEBAFOABDEDT7FAFOOBDLETFEDEFT7FZO 
9B79AF1BED1IDOAIFABDSA4C1, 4557 

1109 DATA 8D32C18D31C1AI008DLEB7FAFIHABDE77FAFOLBD 
C97FAFOOBDRBZ7FAFOOSDEATF, 4028 

1110 DATA AF058DBB7FAFOOBDRB77FADB17FOAOABDBIT7FAI 
FOEDR17F8DB17FAIO0O68D28D0, 4147 

1111 DATA 8D297D0A9008DB97F8DBA7FBESFBBSFCAFOOBDIO 
DOAF508D0O1DOAF1EBDOODOAD, 4089 

1112 DATA C87FF0034C917DADC47FDOZ4ADCESTFFO03205C 
7FADOODCE2FO1FOSBADOODE29, 3783 

1113 DATA OBFOSSADOODL2I04F0O2AADOODE2I1OFOZOADLEA 
7FFO0097201D7AZOFE7BACSF7B, 3401 

1114 DATA 20FE7B201D7A20607B20387C20A47BAC5F784C 
4379AC0OC79203C7FCECH7FAD, 3061 

1115 DATA C67FF003469078A9008DES7FACR77FBIBATFED 
FBC3AC90O78203C7FCEBBFFAD, 4349 

11164 DATA BBIFF0054C9078A70ORBDBB7FADB77FL7020005 
AC9I07BEEB77FACB77FBIBAFF, 4284 

1117 DATA BDFBEC3SADCS7FDOOSACFOTBEEFECISACIOT7B2OSE 
7FCERBTFADBBEFFFOOZS4C9078, 4456 

1118 DATA AFOABDBB7FADB77FCI00D0034C9078CEB77FAC 
B77FBIBATFEDFECSADCSTFDO, 4645 


Gompuphe mi 


<213> 
<39> 
<238> 
<191> 
<143> 
<207> 
<60> 
<194> 
<60> 
<72> 
<71> 
<187> 
<113> 
<36> 
<51> 
<250> 
<191> 
<171> 
<153> 
<142> 
<58> 
<249> 
<23> 


<120> 


<37> 
<133> 
sımo 
<136> 
se | 
<124> 
<194> 
<223> 
<23> 
<70> 
<161> 
<180> 
<9> 
<a3> 
<92> 
<153> 
<184> 
<20> 


<212> 
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1119 DATA 034C9078EEF8C34C9078203C7FAI0085FBAICO 
SSFCADOODOEF1BA4AA4AAABSFD, 4128 

1120 DATA 18ASFBASFDBSFBADO1DOEIZ2AA4AAABSFEAGFE 
18A5FR69IZ8B8BSFRBASFC6EI0085, 4496 

1121 DATA FECADOFOL1BASFRAIZBISFBASFESIOOBSFCAOOO 
BIFBEIFEAFOOSA4CIO7BAJFOLSD, 4695 

1122 DATA CA7FACF07878AFI08S01A2FFYEDOOEOABRDDOGA 
9DO0E0989DDOSARDFAEOABED, 4653 

1123 DATA CA6SBFDFAEOFBFDCAABRDF4ELIABBDCAACHDFAEL 
9BFDCASACHDEEEZABBDREADID, 5582 

1124 DATA EEE29789DBE6DBDEBESABEDBB4AEFDEBESIBFDBB 
&ERDEZE4ABRBDRB2SFIDEZEA4IB, 5642 

1125 DATA 9DB2Z4FBDDLCESABBDAC7OFDDCESISIDACTOBDD& 
E&AABEDA6719IDDGE6HIBIDAGTI1, 5382 

1124 DATA CAEOFFDOSRAF3785015850ADLA7FCFOOFOOCCF 
01F052C902F001504C2D7B20, 3859 

1127 DATA OC7CADB17FCEFFAROIDEERB1TFEEB17FAIBADBOTF 
&DB17FSDRO7FROO4EE00D060, 4432 

1128 DATA EEO1DOEEOODOA0EEB3TFEEBSTF 1BADBOFF&ADB3 
7FSDRO7FBOOTEEOODOEEO1DO, 4512 

1129 DATA 60EEOO0DOEEO1DOEEO1DO&KOADOODOLIFEFOODELE 
C77FADC77FFOOL6OAFO1BDCH, 4405 

1130 DATA 7FADOADOCIBEIOA5C9ICDIOZ1AF1OBDFECEZAFZF 
BDFICSBDFACSAFANSDOSDOAF, 4665 

1131 DATA A4ABDOSDOAF3OBDFACZEEOODOLECFFFADEIFTFFO 
G160AFOCBDCI7FEEOLDOBHOAI, 4411 

1132 DATA 108DFBL3AI2FEDFICSSDFACZAIAABDOSDOAIAA 
SDOSDOAFFOSDFACTEEOODOTE, 4634 

1133 DATA C97FADCITFFO0150AI0ABDCIFFEEO1DOAOAF1B 
BDFECZAIZ1SDFICSBDFACSAI, 4686 

1134 DATA 4ABDOSDOAIS18DOSDOAISZBDFACZEEOODOLECF 
7FADEITFFOOL&0AFOLEDEITF, 4292 

1135 DATA EEOLDOKOATL7ADFECSAIZ1EDFICIAT2ZEDFACS 
AFO0OBDCD7FBDCEFFBDCFFFAF, 4655 

1136 DATA 4ABDOSDOAF4ABDOSDOLECT77FADETFFFOO160AF 
018DC87F&0A9I0085FBAICOBS, 4172 

1137 DATA FCADOODOE91B4A4A4ABSFDIBASFBASFDBSFBAD 
O1DOEISZAA4AAABSFEAGFEIB, 4394 f 
1158 DATA ASFB6I288BSFBASFCAHIO0OBSFECADOFOAOOOBIFB 
CIEAFOO1&0AIO2EDLAT7FAOAD, 4766 

1159 DATA 04DCC9049005C909903BA0ADB77FCFO1FOOLAO 
ASAZ22IOLFOLSCEB7FFACBT7FF, 3738 

1140 DATA BIBATFEDFBCEISADCSTFDOOLA0EEFSCZAOEEBTTF 
ACB77FB9IBAT7FEDFSCSADCSFF, 5258 

1141 DATA DOO150EEFSCSBOADCESTFFOOL1L40AFO1BDCS7FAI 
OCEDCH7FEEFBCSHOAZO0A000, 4297 

1142 DATA CBDOFDEBECDOFTFDOFS6H0ADZ4CICIFIBOOAAFOA 
BD3SAL1SOADIACIEIOGHBEDIACL,, 4697 

1143 DATA EES2C1ADFIZCICIFEFOOLAOADIZLIEFOAIDZ2CA 
EES1C16OADLATFFOOLSOADFB, 4562 

1144 DATA C3C91SFO2IC916FOSICILIFOLHCFLAFOOICI1B 
FOOSCIICFOO7604COD7DACA3, Z61i 

1145 DATA 7D4C637D4CDD7C203SC7FAI3ZEDFICIAFZABDFA 
C3SAFAEBDOSDOAFABBDOSDOAI, 4040 

1146 DATA D5S8DO2DOAYFEDBDOADOADB17FCIFABOOAIBADBIL 
7F69028DB17F6018ADR37F&49, 4194 

1147 DATA 028DB37F60203C7FAI3SBDFICSAISHBDFACZAI 
4E8DOTDOAI488D05DOAIDSED, 4097- 

1148 DATA 02DOAJEDBDOADOADR17FCIFABOOA1BADBI7F&AF 
ORBDB17F&0ADRS7TF&A9038DR3, 4140 

1147 DATA 7F60203C7FAFA1FBEDFICSAIZOBDFACSAI4EBDOS 
DOAF4ESDOSDOAFDSEDO2ZDOAI, A1ilb 

1150 DATA EDSDO4DOADB17FC9IFABOO4EEB17F&0EEBSTF&O 
ZOSC7FAFADBDFICSAFIEBDFA, 4568 

1151 DATA CSAFI4EBDOSDOAISOBDOSDOAFDSBDOZDOAFEDED 
O4DOADRB1T7FCIFABOOTEEBITF, 4542 


<a6> 
<26> 
<144> 
<140> 
<18> 
<120> 
<13> 
<135> 
<244> 
<32> 
<108> 
<99> 
<207> 
<101> 
<138> 
<188> 
<158> 
<115> 
<46> 
<127> 
<122> 
<218> 
<171> 
<172> 
<252> 
<27> 
<254> 
<233> 
<95> 
<242> 
<43> 
<43> 


<165> 


programme 


1152 DATA EEB17F40EEBS7FEERSTF&0OEARF2BBDFICSAI2G 
BSDFACSAIAESDOFTDOAF4ABDOS, 4640 
1153 DATA DOA97DSSDO2DOAIEDBDOADOH0OEAAFZDEDFICSAT 
ZEBSDFACSAI4LEBDOSDOAFACED, 4415 


1154 DATA 05D0A7DS8DO2DOAFEDBDOADOADBI 7FCIFABOOA 


EER17F&0EEBS7FA0OAF1SBD18, 4446 
1155 DATA DOADOODDOFIOZSBDOODDAFOA48DEBO2ZADZAL1EITA 
SNCC7FADZZCIEICABDEB7FAD, 4236 
1156 DATA SIC1EITCABDCA7TFADCATFEDEZTFADCBFFEDESTF 
ADCCFFEDES7FIBADCD7F6930, 4B1B 
1157 DATA 8D2080ADCE7F&9308D2180ADEF7F697308D02380 
18ADCC7FSDEF7FEDSZBOADCH, 3924 
1158 DATA 7F&DCE7FEDSOBOADEATF&DCD7FBEDAFBOAOFAAF 
209IFFOZFIFI0AFIFSOSIIED, 4428 
1159 DATA 0699FFD797F9D89IFSDIIIEDDABBDOEZAIOERD 
21DOAF008D1SDOADS2Z80C9SA, 4785 
1160 DATA 7008E90A8D5280EES0B0ADSOBOCIZAFOOBEFOA 
8DS0B0EEAFSOADZ180CI3SAFO, 3774 
1161 DATA OAEFOABDAFBOAISOBD4EBOAFOESDBETFEDBD7F 
AO1BRB9DOTFFF7EOABBDOFTAO, 4004 
1162 DATA OFBIEBT7FFITCEOABBDOFTAOLSBIFATFFI4A0588 
DOF7AO18B912809996058800, 4248 
1163 DATA F7AO1FBF2AB099I60688D0F7A011BI49809986 
06&88DOF7AO19BISABOFIFEOA, 4045 
1164 DATA 88D0F7A015B7738099260788D0F7A01DBI8880 
FFAEO78BDOF7AOLARFASS099, 4269 
1165 DATA 760788D0OF7A011B9BRBB0999IE0788DOF7ADOODT 
2908F01BADOODC2904FO19AD, 3884 
1166 DATA 00DC2902F01AADOODE2F01F01B4CDB7EAIOABD 
DO7FALL1ATFAF118DDOFFACIA, 3300 
1167 DATA 7FA9F1SBDDOFFACLATFAFLEBDDOFFACLIATFAFOL 
8SDBE7FBSDRD7FAIFFEDISDOAD, 3981 
1168 DATA 00DD29FCB8DOODDAFTORDBSOZAFOBEADISDOACHD 
7SCECF7FADCFFFEPFFFOO160, 4240 


1169 DATA CECE7FAIOFBDEFFFÄADCETFEIFFFOOLSGOLECDTF 


A9OFBDLEFFADCDFFCIFFFOO1, 4885 
1170 DATA &0A9008DED7FSDCE7FBDEF7F&0001716141412 
120F0FOFODODODOLCOCOBOA09, 2042 
1171 DATA 02020110111213121114150419960406320304 
1E0302A50202150207120214, 671 
1172 DATA 4B020DAA0O001AA0101000000D7FBO400151R19 
000500005A00010128286400, 1269 2 
1173 DATA 0000010C64400013236300208031E1309052013 
O90E0420040905130D010C20, 547 
1174 DATA 32362C30200005140512170509142007051310 
12150E07050E061505122009, 595 
1175 DATA- 081205200BOF051210051208010C14150E0705 
1208010C14050E2013090520, 414 
1176 DATA 30302C302010150E0B14050401132005120709 
02142005090E052007051301, 553 
1177 DATA OD1410150E0B141A01080C1&0F0E202032362C 
302010150E0B14050E041215, 649 
1178 DATA 05030B050E201309052004050E200A0OF191314 
07030B120115062020200615, 471 
1179 DATA 051220010E0601050E07051212150E14051220 
0815051220060F1214070513, 426 
1180 DATA 030812091414050E050E0C090E0B1 320200615 
05122013050D0092D10120F06, 473 
1181 DATA 0912050308141320061505122010120F060900 
000000000000000000000000, 240 
1182 DATA 00000000000000000000000000000000000000 
000000000000000000000000, © 
1183 DATA 000000FF00BFBFEOFFFFFFFFFFFFBFFFFFFFFF 
FFFFFFFFFFFFFFEFFFFFFFFFF,„C6622 
1184 DATA FFFFFF, 765 

ENDE DES LISTINGS 


<21> 
<253> 
<56> 
<119> 
<197> 
<207> 
<9> 
<47> 
<208> 
<118> 
<535> 
<227> 
<122> 
<24> 
<54> 
<255> 
<176> 
<49> 
<112> 
<81> 
<228> 
<180> 
<4> 
<190> 
<126> 


<215> 


<167> 
<120> 
<165> 
<201> 
<37> 


<935> 
<59> 





N), er 





Sie wollen doch nicht 
zu spät zur Arbeit 


kommen? 


Na, dann drehen Sie 


Ihre Kiste mal auf! 





Compute mik 








Programme 


BE UUDENE WENEDEBN Ersinsirenmnnenn nm nnnnnnnnnnnn nn mn nenn 


Wir schreiben das Jahr 3486. Sie 
als Spieler sind (mal wieder) ar- 
beitslos, was ja kein seltenes Pro- 


putt gegangen ist. 
blem ist. ABER: Beim allabendli- 


Geschwindigkeitsbegrenzung, die 
Ihnen allerdings vorgestern ka- 


chen Durchstöbern Ihrer Zeitung, a ee re 


der Gbhetto-Gazetto, entdecken 


es mit den fünf zur 


Sie die Anzeige des Cinort-Galrev Yerügung stehenden Be 
Verlages, der eine Stelle als Ober- „icht zu einfach ist. DA 


motz veräußert. 


Eingabe Hinweise: 
ALSO: Nichts wie rein in Ihren Teil 1 LOADER 
'0.5.-GTI], ein in dieser Zeit sehr Teil2 VEC 
gebräuchlicher Nuklearkleinwa- Teil 3 Dataset 


gen mit automatisch geregelter Teil 4 J.R.- MAIN 





C-64 LISTING + CHECKSUMMEN (C V1.0) 


O REM «===# JOB RACE - LOADER suanus 
1 PRINT"{CLEAR YELLOW RIGHT2YPARAVISION{SPACEICH 
MPANY {SPACE }PROUDLY {SPACE }PRESENTS: "3 A$=CHR$ (34) 
2 PRINTTAB (13) "(GREENFULRICH{SPACEIMUEHL ’S" 

3 PRINTTAB(7) "(DOWN REDIICSPACEZIOLSPACEZIBISPAC 
EAIRISPACEZIALSPACEZITLSPACEZIE" 

4 PRINT" (HHITEILOADING... (BLACK DOHN23 "ı POKE 532 


" 81,0:POKE 53280,0 


5 PRINT"LOAD"AS"VEC"AS" „8" 
& PRINT" {DOHN4}RUN" 
7 PRINT" {DOWN2ILOAD"AS"DATASET"AS" ,8" 
8 PRINT" {DOHN4}Y RUN" 
9 PRINT" {UP17}" sPOKES3J1 ,13ı POKE&S2, 13: POKEASS,13 
sPOKE534,13 
10 POKE 198,4 
ENDE DES LISTINGS 


<231> 


<11> 
<197> 


<214> 


<121> 
<215> 
<13> 
<62> 
<15> 


<7> 
<162> 


C-64 LISTING + CHECKSUMMEN (C V1.0) 


O0 REM VEKTOREN AENDERN s BASIC-START 
1 POKE16385,0:POKE 16586,0:POKE43 ,2: POKE44 „641 NE 
W 

ENDE DES LISTINGS 


<236> 


<211> 


C-64 LISTING + CHECKSUMMEN (C V1.0) 


© REM" {SU CHIPARAVISION{SPACEITOMPANY{SPACEIPRES 
ENTS: {CQ SI 

1 REM"(SB SPACEIJOB{SPACEIRACESATLSPACEISTORYSPA 
CEIOUT{SPACEIDF{SPACEILIFELSPACE SB 

2 REM" (SBIWRITTENTSPACE}I INSPACEI "BALSPACEIBY{SP 
ACEIULRICHTSPACEIMUEHL{SB 

3 REM" (SB SPACEICOPYRIGHT{SPACEI1IBBLSPACEIBYSP 
ACEIPARAVISION{SPACE SB 

4 REM" {SB}DR. BEUERMANNSTR. 23{SB}TELEFONs {SPACE3 
sB 

5 REM" (SB}3440{SPACEIESCHWEGEISU SC4 SK SPACEIOS 
651/553415B ; 

& REM"(SJ SC13 CE SC16 SK 

7 POKE 53281 ,0:POKE 53280,0:PRINT"{CLEAR YELLOH 
DOUN2 RIGHT6}PARAVISION{SPACEICOMPANY {SPACE}IPRES 
ENTS{SPACE}: " 

8 PRINT"{GREEN DOWN2 RIGHT14} 'JOB{SPACEIRACE'" 

9 PRINT" DOHN2 RIGHTPIALSPACEISTORYSPACEIOUTISP 
ACEIOF{SPACEILIFE..." 

10 PRINT"{DOHNT RIGHTT CYANIGUESS{SPACEIWHATISPA 
CE} "M{SPACE}READING. -." 

11 POKE 54277,75:POKE 54278,58:POKE 54277+7,9:P0 
KE 54278+7,42:POKE 54277+14,6 

12 POKE 54278+14,0:POKE 54275+14,0:POKE 54275,15 
:POKE 54275+7,15 
























































<208> 


<22> 


<58> 


<142> 


'<217> 


<72> 


13 FOR X=49408 TO 49537:READ DT:POKE X,DTINEXT X 
14. DATAS8,138,60,21,0,46,118,20,65,24 

15 DATA43,219,30,65,76,46,118,30,65,24 

16 DATA52,39,20,65,24,46,118,60,19,24 

17 DATA34,207,20,65,24,69,157,30,65,76 

18 DATAS8,138,30,65,24,52,39,20,65,24 

19 DATA69,157,60,19,24,58,138,20,33,24 

20 DATA65,181,30,33,24,58,130,30,33,24 

21 DATAS52,39,20,33,24,32,219,60,65,135 

22 DATA39,18,20,65,24,32,219,10,65,80 

23 DATA39,18,10,65,10,39,18,10,65,25 

24 DATAS2,219,10,65,40,39,18,10,65,55 

25 DATA39,18,10,65,70,32,219,10,65,85 

26 DATA39,18,10,65,100,0,0,0,0,0 

27 FOR X=49152 TO 49351:READ DTIPOKE X,DTINEXT X 
28 DATA14,162,10,65,24,14,162,10,65,24 

29 DATA14,162,10,129,24,14,162,10,65,24 

30 DATA14,162,30,65,24,14,162,10,65,24 

31 DATA14,162,30,65,24,14,162,10,65,24 

32 DATA14,162,30,65,24,14,162,10,65,24 

33 DATA11,158,10,65,24,11,158,10,65,24 

34 DATA14,162,10,129,24,14,162,10,65,24 

35 DATA11,158,30,65,24,11,158,10,65,24 

36 DATA11,158,30,65,24,11,158,10,65,24 

37 DATA11,158,30,65,24,11,158,10,65,24 

38 DATA17,103,10,65,24,17,103,10,65,24 

39 DATA14,162,10,129,24,14,162,10,65,24 

40 DATA17,103,30,65,24,17,103,10,65,24 

41 DATA17,103,30,65,24,17,103,10,65,24 

42 DATA17,103,30,65,24,17,103,10,65,24 

43 DATA21,237,30,65,24,21,237,10,65,24 

44 DATA21,237,10,65,24,21,237,10,65,24 

45 DATAS0,37,10,129,24,21,237,10,129,24 

4& DATA26,20,30,65,24,21,237,30,65,24 

47 DATA26,20,20,65,24,0,0,0,0,0 

48 FOR X=49664 TOD 4990BıREAD DTIPOKE X,DTSNEXT X 
49 DATA11,158,20,65,24,11,158,10,65,8 

50 DATA11,158,20,65,24,11,158,10,65,8 

51 DATA11,158,10,65,24,100,10,10,129,0 

52 DATA11,158,20,65,24,11,158,10,65,8 

53 DATA11,158,20,65,24,11,158,10,65,8 

54 DATA11,158,10,65,24,100,10,10,129,0 

55 DATA9,196,20,65,24,9,196,10,65,8 

56 DATA9,196,20,65,24,9,196,10,65,8 

57 DATA9,196,10,65,24,100,10,10,129,0 

58 DATA9,196,20,65,24,9,196,10,65,8 

59 DATA9,196,20,65,24,9,196,10,65,8 

60 DATA9,196,10,65,24,100,10,10,129,0 

61 DATA14,162,20,65,24,14,162,10,65,8 

62 DATA14,162,20,65,24,14,162,10,65,8 

63 DATA14,162,10,65,24,100,10,10,129,0 

64 DATA14,162,20,65,24,14,162,10,65,8 

65 DATA14,162,20,65,24,14,162,10,65,8 

&6 DATA14,162,10,65,24,100,10,10,129,0 

67 DATA21,237,20,65,24,21,237,10,65,8 

68 DATA21,237,20,65,24,21,237,10,65,8 

69 DATA21,237,10,65,24,100,10,10,129,0 

70 DATA21,237,20,65,24,21,237,20,65,4 

71 DATA21,237,10,65,24,21,237,10,65,4 

72 DATA100,10,10,129,0,100,10,10,129,0 

73 DATA 0,0,0,0,0 

74 FOR X=832 TO 844:READ DT:POKE X,DTINEXT X 

75 DATA120,169,0,141,20,3,169,196,141,21,3,88,96 
76 FOR X=5017& TO 50457:READ DT:POKE X,DTINEXT X 
77 DATA173,255,195,208,71,173,254,195,170,189,0, 
193,208,6,169,0,170,141,254 

78 -DATA195,189,0,193,141,1,212,232,189,0,193,141 
„0,212,232,189,0,193,141,255 

79 DATA195,169,0,141,4,212,232,189,0,193,141,4,2 
12,232,189,0,193,141,251,195 

80 DATA232,138,141,254,195,169,0,234,141,249,195 
„141,2,212,141,249,195,173 

81 DATA249,195,237,251,195,141,2,212,141,249,195 
»‚206,255,195,173,223,195,208 

82 DATA71,173,222,195,170,187,0,192,208,6,169,0, 
170,141,222,195,189,0,192 

83 DATA141,8,212,232,189,0,192,141,7,212,232,189 
‚0,192,141,223,195,169,0,141 

84 DATA11,212,232,189,0,192,141,11,212,232,187,0 
‚„192,141,219,195,232,138,141 

85 DATA222,195,169,0,234,141,217,195,141,9,212,1 
41,217,195,173,217,195,237 

86 DATA219,195,141,9,212,141,217,195,206, 223,195 
‚173,191,195,208,71,173,190 

87 DATA195,170,189,0,194,208,6,169,0,170,141,254 
„194,189,0,194,141,15,212 


Compuhe mi 


<91> 
<116> 
<162> 
<58> 
<150> 
<19> 
<38> 
<19> 
<81> 
<233> 
<223> 
<81> 


<137> 
<251> 
<248> 
<109> 
<199> 
<129> 
<130> 
<131> 
<200> 
<204> 
<220> 
<221> 
<222> 
<a7> 
<209> 
<67> 
<68> 
<69> 
<188> 
<171> 
<1a> | 
<166> 
<96> 
<171> 
<27> 
<28> 
<7> 
<30> 
<31> 
<10> 
<47> 
<48> 
<23> 
<50> 
<51> 
<26> 
<2097> 
<210> 
<248> 
<212> 
<213> 
<251> 
<5> 
<6> 
<13> 
<165> 
<132> 
<121> 
<140> 
<202> 
<51> 
<53> 


<40> 
<46> 
<153> 
<B6> 
<18> 
<180> 
<25> 
<179> 
<165> 
<46> 


<44> 


2/87 





programme 


88 DATA232,1897,0,194,141,14,212,232,189,0,194,14 160 DATA 154, 128, 152, 169, 128, 152, 9, 128, 1 
1,191,195,169,0,141,18,212 <174> |52 <195> 
89 DATA232,189,0,194,141,18,212,232,189,0,194,14 161 DATA 9, 128, 152, 9, 128, 152, 9, 96, 152 <255> 
1,187,195,232,139,141,190 <5> 162 DATA Z, 98, 88, 2, 78, 98, 2, 98, 98 <103> 
90 DATA195,169,0,234,141,185,195,141,16,212,141, 163 DATA 2, 98, 98, 2, 98, 98, 2, 98, 98 <111> 
185,195,173,185,195,237,187 \ <13> 164 DATA 130, 98, 106, 169, 98, 85, 149, 96, 165 <28> 
91 DATA195,141,16,212,141,185,195,206, 191 ,195,17 165 DATA 149, 96, 10, 149, 128, 0, 42, 0, 0 <117> 
3,24,212,141,17,212,76,49 <197> | 166 DATA_O <137> 
92 DATA234 <172> | 167 DATA/O, 0, 0, 162, 170, 0, 88, 149, 128 <132> 
93 POKE 54295,0:POKE 54296,15:FOR X=50104 TO 501 158 DATA 88, 153, 96, 152, 154, 96, 152, 154, 96 <199> 
75:POKE X,0:NEXTıSYS 832 <15> 2 DATA 152, 153, 96, 152, 153, 128, 152, 153, BEN 
X=2048 TO 9:READ DT:POK ‘ <iı 
5 Dh 0, 0, 0, 8005, 0, Er MELINERT Se 170 DATA 152, 149, 160, 96, 154, 88, 96, 37, BB <234> 
96 DATA 0, 0, 0, 6, 0, 0, 0, 0, O <131> | 171 DATA 96. 38, 152. 96. 38, 150, 76, SB, 38 <197> 
97 'DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 * <132> | 172 DATA 96, 58, 38, 96, 38, 150, 96, 38, 88 <199> 
98 DATA 0, 236, O0, O0, 168, 0, 2, 170, © . <37> | 173 DATA 150, 37, 96, O0, 170, 128, 0, 0, © <14> 
99 DATA 2, 86, O, 2, 118, O, 10, 118, 128 <209> | 174 DATA O <145> 
100 DATA 9, 117, 128, 9, 253, 128, 41, 85, 160 <8> 175 DATA 10, 128, O0, 175, 224, O0, 46, 224, 10 <205> 
101 DATA 42, 170, 160, 14, 238, 192, 1, 69, 0 <126> | 17& DATA 46, 248, 11, 46, 184, 47, 46, 184, 46 <66> 
102 DATA © . 2 i <73> 177 DATA 46, 184, 46, 46, 248, 46, 47, 224, 46 <26> 
103 DATA 0, 40, O0, O0, 190, 0, 2, 170, 128 <125> | 178 DATA 175, 128,46, 187, 128, 184, 187, 128, 
104 DATA 2, 130, 128, 10, O0, 160, 8, 0, 32 <232> | 184 <78> 
105 DATA 8, 60, 32, 8, 235, 32, 15, 255, 240 <206> | 177 DATA 186, 224, 186, 186, 224, 191, 186, 224, 
106 DATA 21, 85, 84, 42, 170, 148, 21, 153, 148 <25> 186  <191> 
107 DATA 25, 153, 152, 21, 149, 152, 26, 166, 14 180 DATA 184, 184, 184, 184, 186, 224, 184, 186, 
8 <11> 224 ” <149> 
108 DATA 42, 170, 168, 21, 85, 84, 59, 187, 184 <226> | 181 DATA 168, 170, 224, O0, 2, 224, 0, 2, 160 <147> 
109 DATA 46, 238, 236, 21, 170, 84, 63, O0, 252 <5e> | 182 DATA O “- <153> 
-410 DATA 0 & <8i1> 183 DATA 0, 0, 0, 0, O0, O0, 160, O, 168 <212> 
111 DATA O0, 84, O0, 6, 100, 0, O0, 100, 0 <a0> | 184 DATA 224, 10, 254, 248, 11, 235, 184, 11, 13 
112 DATA O0, 168, 0, O0, 168, 0, 0, 168, O <193> | O <93> 
113 DATA 0, 168, 0,’ 2, 170, 0, 2, 170, O <252> | 185 DATA 184, 11, 128, 184, 11, 128, 184, 11, 12 
114 DATA 2, 186, 0, 2, 186, O, 10, 254, 128 <se> |8 <106> 
115 DATA 10, 254, 128, 10, 254, 128, 43, 255, 16 186 DATA 184, 11, 128, 46, 47, 128, 46, 46, O <77> 
o <34> | 187 DATA 174, 46, O, 254, 46, O0, 174, 46, O0 <134> 
116 DATA 43, 255, 160, 170, 254, 168, 42, 170, 1 188 DATA 46, 46, O, 11, 174, O0, 11, 174, 2 <165> 
&0 <173> | 189 DATA 11, 175, 171, 10, 138, 254, O0, O0, 16B <96> 
117 DATA 6, 170, 64, 1, 101, 0, 0, 0, © <134> | 190 DATA O0 <161> 
118 DATA © <89> | 191 DATA 0, 42, 34, 10, 190, 34, 11, 250, 34 <93> 
119 DATA 26, O, 164, 91, 190, 229, i71, 170, 234 <B> 192 DATA 139, 160, 42, 139, 128, O, 139, 128, 34 <99> 
120 DATA 171, 170, 234, 43, 170, 232, 46, 150, 1 173 DATA 11, 128, 42, 11, 128, 34, 11, 170, 34 <238> 
84 <185> | 194 DATA 11, 254, 34, 2, 234, O0, 2, 224, 0 <28> 
121 DATA 42, 105, 168, 9, 235, 96, 9, 190, 96 <215> | 195 DATA 2, 224, O, 2, 224, O0, 2, 224, O <48> 
122 DATA 9, 235, 96, 9, 190, 96, 89, 150, 101 <107> | 196 DATA 2, 224, O, 2, 234, 128, 130, 239, 128 <248> 
123 DATA 173, 105, 122, 174, 170, 186, 171, 170, 177 DATA 130, 250, 128, 128, 160, 0, 0, 0, 0 <242> 
. <170> | 198 DaTa 0 1695 
124 DATA 171, 170, 234, 107, 170, 233, 27, 170, 197 DATA O0, 0, O0, 0, 0, 0, 0, 0, 0 <234> 
228 <154> | 200 DATA 0, 0, 0, O0, 0, 0, 0, 0, © <235> 
125 DATA 62, 170, 188, O0, 40, 0, 0, 0, 0 <102> | 201 DATA 0, 0, 0, 0, O0, 0, 0, 0, 0 <236> 
126 DATA O ! <97> | 202 DATA 0, 212, O0, O0, 100, 0, 2, 170, © <173> 
127 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <162> | 203 DATA 2, 85, O0, 1, 118, 0, 9, 118, 64 <241> 
128 DATA O0, 168, 0, 10, 118, 128, 42, 864, 160 <232> | 204 DATA 9, 117, 128, 5, 253, 64, 37, 85, 160 <226> 
129 DATA 41, 153, 150, 153, 153, 152, 153, 101, 205 DATA 41, 106, 96, 14, 238, 192, 1, 69, O <165> 
152 <74> | 206 DaTa 0 <177> 
130 DATA 153, 101, 152, 153, 185, 152, 153, 185, 207 DATA 0, 0, 0, 0, 0, 0, 0, 0, © <242> 
152 <237> | 208 DATA 0, 0, O0, 0, 0, 0, 0, 0, 0 <243> 
131 DATA 153, 185, 152, 154, 254, 152, 42, 254, 209 DATA O0, 0, 0,-.0, 0, 0, 0, 0, O0 <244> 
160 <118> | 210 DATA 0, 212, 0, 0, 84, 0, 0, 238, © <i12> 
132 DATA 43, 255, 150, 10, 254, 128, O0, 148, 0 <224> | 211 DATA 2, 85, O, 3, 242, O0, 13, 246, O <217> 
133 DATA 0, 0, 0, 0, 0, 0, 0, 0, © <168> | 212 DATA 5, 5, 1289, 4, 252, 64, 5, 71, 64 <38> 
134 DATA O <105> | 213 DATA 1, 110, 64, 14, 238, 192, 1, 69, O0 <247> 
135 DATA 170, 173, O0, 180, 11, 64, 180, 11, 64 <224> | 214 DATA 0 <185> 
136 DATA 180, 11, 64, 180, 11, 64, 180, 11, 64 <4> 215 DATA 0, 0, 0, 0, 0, 0, 0, 0, © <250> 
137 DATA 180, 11, 64, 180, 11, 64, 170, 173, 0 <186> | 216 DATA 0, 0, 0, 0, 0, 0, 0, 0, O0 <251> 
138 DATA 180, 0, O0, 180, 0,.0, 180, 0, © <139> | 217 DATA 0, 0, O0, 0, 0, 0, 0, 0, 0 <252> 
139 DATA 180, 0, O0, 180, O0, O0, 180, 0, O <140> | 218 DATA 0, 4, 0, 0, 92, 0, 0, 46, O <105> 
140 DATA 180, 0, 0, 180, O0, O0, 180, 0, 0 <141> | 219 DATA 2, 117, 0, 3, 243, O, 13, 245, 0 <129> 
141 DATA 180, 0, 0, 180, 0, 0, 0, 0, O <36> | 226 DATA 5, 13, 128, 4, 252, 64, 5, 71, 64 <42> 
142 DATA 0 <113> | 221 DATA 3, 96, O0, O0, 221, 192, 1, 64, O <5> 
143 DATA 45, 1, 224, 45, 1, 224, 45, 1, 224 <254> | 222 DATA O0 <193> 
144 DATA 45, 1, 224, il, 71, 128, 11, 71, 128 <117> | 223 DATA 0, 0, 0, 0, 0, 0, 0, 0, © <2> 
145 DATA 11, 71, 128, 11, 71, 128, 2, 222, O0 <216> | 224 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <3> 
146 DATA 2, 222, O0, 2, 222, 0, 2, 222, 0 <171> | 225 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <4> 
147 DATA 6, 184, O0, O0, 184, 0, O0, 184, O <138> | 226 DATA 0, 4, 0, 0, 92, 0, 0, 0, © <5> 
148 DATA 0, 184, 0, O0, 32, O0, 0, 32, 0 <174> | 227 DATA 2, 116, O0, 3, 243, O, 13, 245, 0 <131> 
149 DATA 0, 32, 0, 0, 32, 0, 0, 0, © <43> | 228 DATA 1, 0, 128, O0, 252, 0, 0, 71, 64 <37> 
150 DATA O0 <121> | 227 DATA O0, 64, O0, O, 205, 192, O0, 0, 0 <168> 
151 DATA 30, 170, O0, 120, 7, 128, 120, 0, O <177> | 230 DATA 0 <201> 
152 DATA 120, 0, O0, 120, 0, 0, 120, 0, 0 <211> | 231 DATA 0, 0, 0, 0, 0, 0, 0, 0, © <10> 
153 DATA 120, 0, 0, 120, O0, O0, 120, 0, 0 <212> | 232 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <11> 
154 DATA 120, 0, O0, 120, O0, O0, 120, 0, 0 <213> | 233 DATA 0, 0, 0, 0, 0, 0, 0, 0, © <12> 
155 DATA 120, 0, O0, 120, 0, 0, 120, 0, O <214> | 234 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0. <13> 
156 DATA 120, 0, 0, 120, O0, O0, 120, 0, 0 <215> | 235 DATA 0, 52, 0, 3, 243, 0, 12, 0, 0 <5> 
157 DATA 120, 7, 128, 30, 170, 0, 0, 0, 0 <59> | 236 DATA 1, 0, 0, 0, 252, 0, 0, 7, 64 <222> 
158 DATA O <129> | 237 DATA 0, 0, 0, 0, 204, 192, 0, 0, © <49> 
159 DATA 0, 168, 42, 10, 88, 149, 165, 168, 154 <B1> 238 DATA O <209> 





7 Compute mit  \. 


programme 


239 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 

240 DATA O0, 0, O0, O0, 0, O0, 0, 0, © 

241 DATA O0, 0, 0, 0, 0, 0, 0, 0, 0 

242 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 

243 DATA 0, 0, 0, 42, 8, 42, 34, 34, 32 

244 DATA 42, 42, 40, 32, 34, 32, 32, 34, 32 

245 DATA O0, 0, O0, 0, O0, O0, O0, 0, 0 

246 DATA O : 

247 DATA 170, 170, 170, 190, 239, 171, 186, 238, 
238 

248 DATA 186, 238, 238, 186, 238, 238, 186, 238, 
238 

249 DATA 190, 238, 235, 170, 170, 170, 128, 0, 0 
250 DATA 128, 0, 0, 128, O0, 0, 128, 0, O 

251 DATA 128, 0, 0, 128, O0, 0, 128, 0, O 

252 DATA 128, 0, 0, 128, O0, O0, 128, 0, © 

253 DATA 128, 0, 0, 128, 0, 0, 128, 0, O 

254 DATA O0 

255 DATA 170, 170, 170, 175, 175, 234, 238, 235, 
170 

256 DATA 239, 171, 170, 238, 235, 174, 238, 235, 
170 

257 DATA 174, 235, 170, 170, 170, 170, O0, 0, © 
258 DATA 0, O0, 0, 0, 0, 0, 0, 0, © 

257 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 

260 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 

261 DATA O0, O0, 0, 0, O0, 0, 0, 0, 0 

262 DATA O 

263 DATA 170, 170, 170, 174, 174, 186, 187, 187, 
186 

264 DATA 186, 187, 186, 191, 191, 186, 187, 187, 
186 

265 DATA 174, 187, 190, 170, 170, 170, O0, 0, 0 

266 DATA O0, 0, 0, 0, O0, 0, 0, 0, 0 

267 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 

268 DATA O0, 0, 0, 0, 0, 0, 0, 0, O 

269 DATA O0, 0, 0, 0, 0, 0, 0, 0, 0 

270 DATA 0 R a 

271 DATA 170, 170, 170, 250, 254, 238, 238, 234, 
238 > 

272 DATA 250, 250, 238, 238, 234, 238, 238, 234, 
238 

273 DATA 238, 254, 186, 170, 170, 170, 0, 0, 2 

274 DATA 0, O0, 2, 0, 0, 2, 0, 0, 2 

275 DATA 0, 0, 2, 0, 0, 2, 0, 0, 2 

27& DATA O0, 0, 2, O0, 0, 2, 0, 0, 2 5 

277 DATA 0, 0, 2, 0, 0, 2, 0, 0, 2 

278 DATA O 


279 FOR X=12288 TO 135671READ DTIPOKE X,DTSNEXT 
x 

32000 DATA9,9,61,54,116,60,0,60,12,30,51,63,102, 
102,102,0,62,51,51,62,102,102 

32001 DATA124,0,30,51,48,48,96,102,60,0,60,54,51 
‚51,102,108,120,0,63,48,48,60 

32002 DATA96,96,126,0,63,48,48,60,96,96,76,0;30, 
51,48,55, 102, 102,60,0,51,51,51 

32003 DATA63,102,102,102,0,30,12,12,12,24,24,60, 
0,15,6,6,6,12,108,56,0,51,54 

32004 DATA60,56,120,108,102,0,48,48,48,48,96,96, 
126,0,49,59,63,53,99,99,99,0 

32005 DATAS1,57,63,63,110,102,102,0,30,51,51,51, 
102,102,60,0,62,51,51,62,96,96 

32006. DATA96,0,30,51,51,51,102,60,14,0,62,51,51, 
62,120,108,102,0,30,51,48,30 

32007 DATA6,102,60,0,63,12,12,12,24,24,24,0,51,5 
1,51,51,102,102,60,0,51,51,51 

32008 DATAS1,102,60,24,0,49,49,49,53,127,119,99, 
0,51,51,30,12,60,102,102,0,51 

32009 DATAS1,51,30,24,24,24,0,63,3,6,12,48,96,12 
6,0,30,24,24,24,48,48,60,0;6 

32010 DATA9,24,62,48,98,252,0,30,6,6,6,12,12,60, 
0,0,12,30,63,24,24,24,24,0,8 

32011 DATA24,63,127,48,16,0,0,0,0,0,0,0,0,0,12,1, 
2,12,12,0,0,24,0,51,51,51,0,0 

32012 DATAO,0,0,51,51,127,51,255,102,102,0,12,31 
„48,30,6,124,24,0,49,51,6,12 

32013 DATA48,102,70,0,30,51,30,28,103,102,63,0,3 
»6,12,0,0,0,0,0,6,12,24,24,48 

32014 DATA24,12,0,24,12,6,6,12,24,48,0,0,51,30,1 
27,60,102,0,0,0,12,12,63,24,24 

32015 DATAO,0,0,0,0,0,0,24,24,48,0,0,0,63,0,0,0, 
0,0,0,0,0,0,24,24,0,0,1,3,6,24 

32016 DATA48,96,0,30,51,55,59,102,102,60,0,12,12 
„28,12,24,24,126,0,30,51,3,6 

32017 DATA48,96,126,0,30,51,3,14,6,102,60,0,3,7; 
15,51,127,6,6,0,63,48,62,3,6 


<18> 
<19> 
<20> 
<21> 
<225> 
<42> 
<24> 
<217> 


<228> 
<7> 
<216> 
<85> 
<B6> 
<87> 
<B8> 
<225> 
<191> 
<241> 


<201> 
<38> 


<39> 
<a0> 
<a1l> 
<234> 
<58> 
<192> 
<20> 
<ab> 
<a7> 
<48> 
<49> 
<242> 
<&2> 
<173> 
<116> 
<126> 
<127> 
<128> 
<129> 
<250> 
<42> 
<77> 
<165> 
<165> 
<190> 
<167> 
<121> 
<226> 
<a7> 
<163> 
<77> 
<129> 
<67> 
<61l> 
<51> 
<5> 
<2277> 
<117> 


<252> 


32018 DATA102,60,0,30,51,48,62,102,102,60,0,63,5 
1,6,12,24,24,24,0,30,51,51,30 

32019 DATA102,102,60,0,30,51,51,31,6,102,60,0,0, 
0,12,0,0,24,0,0,0,0,12,0,0,24 

32020 DATA24,48,7,12,24,48,48,24,14,0,0,0,63,0,1 
26,0,0,0,56,12,6,3,12,24,112 

32021 DATAO,30,51,3,6,24.0,24,0,0,0,0, 127,255,0, 
0,0,47,171,170,138,42,139,139 

32022 DATA47,60,48,60,172,175, 131,163, 163,143,14 
0,172,188,188,172,12,12,255,255 

32023 DATA255,247,213,213,255,247,255,247,255,24 
7,255, 255,255, 255,87,119,87,87 

32024 DATAB7 ,87,87,87,87,85,85,85,85,85,85,85,85 
‚119,85,85,85,85,85,85,85,85 

32025 DATABS,85,85,85,85,85,255, 191,251 ,255,255, 
251,255,255,251 ,255,255, 239,255 

320264 DATA191,251 ,255,255,239, 255,255, 254,255,19 
1,255,171,187,187,187,171,191 

32027 DATA191,255,187,187,187,187,187,187,239,25 
5,239,187,191,191,191,187,239 

32028 DATA255,239,171,171,171,171,171,255,251,25 
1,234 ,251 ,251,251 ,251 ,255,255 

32027 DATA251 ‚255,238, 255, 255,255, 255, 255,175,23 
5,250, 190,175,235,250,190,175 

32030 DATA235, 250,254 ,255,251,190,175,190,250,23 
5,175,190,250,235,175,195,231 

32031 DATA126,60,60,126,231,195,0,60, 126, 102,102 
‚126,60,0,24,24,102,102,24,24 

32032 DATA&O,0,8,6,6,6,5,6,6,6,8,28,62,127,62,28 
‚8,0,24,24,24 ,255,255,24,24,24 

32033 DATA192,192,48,48,192,192,48,48,24,24,24,2 
4,24,24,24,24,0,0,3,62,118,54 

32034 DATAS4',0,255,127,63,31,15,7,3,1,0,0,0,0,0, 
0,0,0,240,240,240,240,240,240 

32035 DATA240,240,0,0,0,0,255,255,255,255,255,0, 
0,0,0,0,0,0,192,224 241,251 ,223 

32036 DATA206,196,192,97,225,225,227,99,98,102,1 
03,199,199,192,96,96,32,48,240 

32037 DATA255,255,48,48,48,48,48, 48,190,191,51,4 
8,48,51,63,62,27,155,219,217 

32039 DATA217,21&,152,25,1,131,199,239,255,254,2 
54,255,128,128,128,0,0,0,0,0 

32039 DATA192,192,192,192,0,64,117,85,103,110,10 
8,108,0,0,40,40,240,55,24,24 

32040 DATAO,0,136,216,48,48,48,48, 0,0,0,0,55,55, 
51,50,0,3,9,57,25,27,155,27,128 

32041 DATA131,135,198,239,199,128,23,29,16,16,29 
‚0,128,0,0,128,128,128,128,119 

32042 DATA1,127,0,0,46,106,46,40,40,58,0,0,238,1 
68,238,248,168,138,0,1,3,3,1 

32043 DATAO,7,63,255,255,252,240,192,241 224,192 
‚192,192,228,236,252,192,195 

32044 DATA227,227,97,113,116,62,143,140,140,198, 
198,6,0,0,34,46,0,0,0,0,0,0,170 

32045 DATA238,0,0,0,0,0,0,0,1,3,3,2,0,0,0,248,24 
0,240,56,56,56,28,28,28,0,0,0 

32046 DATAO,0,0,0,195,153,145,145,159,153,195,25 
5,231,195,153,129,153,153,153 

32047 DATA255,131,153,153,131,153,153,131,255,19 
5,153,159,159,159,153, 195,255 

32048 DATA135,147,153,153,153,147,135,255,129,15 
9,159,135,159,159,129,255,129 

32047 DATA159,159,135,159,159,159,255,195,153,15 
9,145,153,153,195,255, 153,153 

32050 DATA153,129,153,153,153,255,195,231 231,23 
1,231,231,195,255,225,243,243 

32051 DATA243,243,147,199,255,153,147,135,143,13 
5,147,153,255,159,159,159,159 

32052 DATA159,159,129,255,156,136,128,148,156,15 
6,156,255,153,137,129,129,145 

32053 DATA153,153,255,195,153,153,153,153,153,19 
5,255,131,153,153,131,159,159 

32054 DATA159,255,195,153,153,153,153,195,241,25 
5,131,153,153,131,135,147,153 g 
32055 DATA255,195,153,159,195,249,153,195,255,12 
9,231 ,231,231,231,231,231,255 

32056 DATA153,153,153,153,153,153,195,255,153,15 
3,153,153,153,195,231,255,156 

32057 DATA156,156, 148,128, 136, 156,255,153,153,19 
5,231,195,153,153,255,153,153 

32058 DATA153,195,231,231,231,255,129,249,243,23 
1,207,159, 129,255, 195, 207,207 

32059 DATA207 ,207,207,195,255,243,237,207,131,20 
7,157,3,255,195,243,243,243,243 

32060 DATA243,195,255,255,231,195,129,231,231,23 
1.231 ,255,239,207,128,128,207 


Compuhs mib 


<147> 
<150> 
<89> 
<162> 
<37> 
<233> 
<25> 
<93> 
<226> 
<100> 
<247> 
<22> 
<253> 
<217> 
<o> 
<183> 
<537> 


<bb> 
<a5> 
<27> 
<147> 
<112> 
<250> 
<202> 
<14> 
<186> 
<3> 
<87> 
<76> 
<144> 
<38> 
<9 
<1B81> 
<78> 
<7> 
<138> 
<197> 
<108> 
<89> 
<148> 
<136> 
<68> 
<41> 


2/67 





IKTCrNE 


EA hei we 


“ey 


BEI. 


32061 DATA239,255 

33000 FOR X=12288 TO 12288+10231 POKE X+1024,255- 
PEEK(X) NEXT X 

33001 FOR X=845 TO 857:READ DT:POKE X,DT:NEXT 
33002 DATA120,169,49,141,20,3,169,234,141,21,3,8 
8,96 

33999 FOR X-8192 TO &988:READ DTsPOKE X,DT:NEXT 
34000 DATA165,2,201,5,208,24,169,0,133,2,173, 31, 
50,72,162,23,189,7,50,157,8,50 

34001 DATA202,138,208,246,104,141,8,50,173,47,50 
„72,162,15,189,31,50,157,32,50 

34002 DATA202,138,208,246,104,141,32,50,173,63,5 
0,72,162,15,189,47,50,157,48 

34003 DATAS0,202,138,208,246,104,141,48,50,173,7 


.„ 9,50,72,162, 15, 199, 63 ‚50,157 


34004 DATA&4,50,202,138,208,246,104,141,64,50,23 
0,2,96,32,253,174,32,158,183 

34005 DATA142,0,208,32,253,174,32,158,183,142,1, 
208,32,253,174,32,158,183,142 

34006 DATA2,208,32,253,174,32,158,193,142,3,208, 
32,253,174,32,158,183,142,4,208 

34007 DATA32,253,174,32,158,183,142,5,208,32,253 
‚174,32,158,183,142,6,208,32 

34008 DATA253,174,32,158,183,142,7,208,32,253,17 
4,32,158,183,142,8,208,32,253 

34009 DATA174,32,158,183,142,97,209,32,253,174,32 
„158,183,142,10,208,32,253,174 

34010 DATA32,158,183,142,11,208,32,253,174,32,15 
8,183,142,12,208,32,253,174,32 

34011 DATA158,193,142,13,208,32,253,174,32,158,1 
83,142,14,208,32,253,174,32,158 

34012 DATA183,142,15,208,96,32,253,174,32,158,18 
3,142,37,208,32,253,174,32,158 

34013 DATA183,142,38,208,32,253,174,32,158,183,1 
42,39,208,32,253,174,32,158,183 

34014 DATA142,40,208,32,253,174,32,158,183,142,4 
1,208,32,253,174,32,158,183,142 

34015 DATA42,208,32,253,174,32,158,193,142,43,20 
8,32,253,174,32,158,183,142,44 

3401& DATA208,32,253,174,32,1598,193,142,45,208,3 
2,253,174,32,158,183,142,46,208 

34017 DATA96,32,253,174,32,158,183,142,248,7,32, 
253,174,32,158,183,142,249,7 

34018 DATA32,253,174,32,158,193,142,250,7,32,253 
‚174,32,158,183,142,251,7, 32 

34019 DATA253,174,32,158,183,142,252,7,32,253,17 
4,32,158,183,142,253,7,32,253 

34020 DATA174,32,158,183,142,254,7,32,253,174,32 
„158,1893,142,255,7,96,162,14 

34021 DATA189,1,208,24,24,125,255,22,157,1,208,2 
02,138,208,241,96,173,0,220,41 

34022 DATA1,208,13,206,1,208,173,1,208,201,83,20 
8,3,238,1,208,173,0,220,41,2 

34023 DATA208,13,238,1,208,173,1,208,201,224,208 
»3,206,1,208,173,0,220,41,4, 208 

34024 «DATA13,206,0,208,173,0,208,201,96,208,3,23 
8,0,208,173,0,220,41,8,208,13 

34025 DATA238,0,208,173,0,208,201,254,208,3,206, 
0,208,96,173,0,220,41,16,208 

34024 DATA1,96,169,0,234,141,39,208,141,40,208,1 
41,41,208,141,42,208,141,43,208 

34027 DATA162,3,160,255,136,152,208,252,202,138, 
208,246,32,0,32,165,161,141,38 

34028 DATA208,73,255,141,37,208,162,255,173,18,2 
08,141,38,208,73,255,141,37,208 

34029 DATA202,138,208,241,76,245,33,32,146,33,17 
3,2,208,201,168,2098,5,169,255 

34030 DATA141,0,23,173,2,208,201,96,208,5,169,1, 
141,0,23,32,164,33,173,4,208 

34031 DATAZ01,248,208,5,169,255,141,2,23,173,4,2 
08,201,184,208,5,169,1,141,2 

34032 DATA23,32,164,33,173,6,208,201 ,248,208,5,1 
69,255,141,4,23,173,6,208,201 

34033 DATA96,208,5,169,1,141,4,23,32,164,33,173, 
8,208,201,248,208,5,169,255,141 

34034 DATAs,23,173,8,208,201,76,208,5,169,1,141, 
6,23,32,164,33,32,0,32,32,0,32 

34035 DATA32,0,32,173,10,208,201,216,208,5,169,2 
55,141,8,23,173,10,208,201,192 

34036 DATA208,5,169,1,141,8,23,96,169,15,141,255 
„31,141,254,31,32,60,34,162,5 

34037 DATA160,255,136,152,208,252,202,139,208,24 
6,173,30,208,24,74,144,6,167 

34038 DATA1,141,253,31,96,206,255,31,173,255,31, 
208,20, 169,249, 141,255,31,234 

34039 DATA206,254,31,173,254, 31,208,6, 169,0,i41, 


<65> 


<192> 
<63> 


<91> 
<175> 


<211> 
<175> 
<183> 
<9> 
<187> 
<176> 
<107> 
<106> 
<87> 
<168> 
<157> 
<252> 
<234> 
<36> 
<252> 
<213> 
<71> 
<149> 
<9> 
<4> 
<183> 
<187> 
<a6> 
<222> 
<254> 
<155> 
<38>- 
<240> 
<130> 
<63> 
<63> 
<138> 
<236> 
<242> 
<81> 
<B6> 
<192> 
<47> 


<220> 


Programme 


253,31,96,76,213,34,238,1,208 
34040 DATA238,3,208,238,5,208,238,7,208,9& 
35000 FOR X=15 TO O0 STEP-1:POKE 54296,Xs FÜR WT=0 
TO 250:NEXT WT:NEXT X:5Y5 845 
=. FOR X=49408 TO 49660sREAD DT:POKE X,DTSNEX 
35010 DATA 14,162,16,65,24,15,129,8,65,24,15,129 
‚8465,24,17,103,8,65,24 
35011 DATA 17,103,8,65,24,19,137,8,65,24,19,137, 
8,65,24 
35012 DATA 14,162,16,65,24,15,129,8,65,24,15,129 
‚8,65,24,17,103,8,65,24 
35013 DATA 17,103,8,65,24,19,137,8,65,24, 19,137, 
8,65,24 
35014 DATA 14,162,16,65,24,15,129,8,65,24,15,129 
‚9,65,24,17,103,8,65,24 
35015 DATA 17,103,8,65,24,19,137,8,65,24,19,137, 
8,65,24 
3501& DATA 14,162,32,65,24,14,162,16,65,24,14,16 
2,98,65,24,14,162,8,65,24 
35017 DATA 19,137,16,65,24,21,237,9,65,24,21,237 
‚8,65,24,23,59,8,65,24 
en DATA 23,59,8,65,24,26,20,8,65,24,26,20,8,6 
’ 
35019 DATA 19,137,16,65,24,21,237,8,65,24,21,237 
‚8,65,24,23,59,8,65,24 
35020 DATA 23,59,9,65,24,26,20,8,65,24,26,20,8,6 
5,24 
35021 DATA 19,137,16,65,24,21,237,8,65,24,21,237 
‚B,65,24,23,57,8,65,24 
re DATA 23,59,8,65,24,26,20,8,65,24 ,26,20,8,6 
35023 DATA 19,137,32,65,24,19,137,16,65,24,19,13 
7,8,65,24,19,137,8,65,24,0,0,0 
35100 FOR X=49152 TO 493241READ DT:POKE X,DTENEX 
T 
35110 
35111 
35112 
35113 
35114 
35115 
35116 
35117 
35118 
35119 
35120 
35121 
35122 
35123 
35125 
35126 
35127 
35128 
35129 
35130 
35131 
35132 
35133 
35134 
35135 
35136 
35137 
35138, 
35150 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


7,81,16,65,80,100,100,8,129,56 
8,180,24,65,80 

9,196,16,65,80 
7,81,16,45,80,100,100,8,129,56 
8,180,24,65,80 

9,196,16,65,80 
7,81,16,45,80,100,100,8,129,5& 
8,180,24,65,80 

9,196,16,45,80 

7,81,32,65,80 

7,81,8,65,80 

7,81,8,65,80 

7,81,8,65,80 

7,81,8,65,80 
19,137,16,65,80,100,100,8,129,56 
23,59,24,65,80 

26,20,16,65,80 
19,137,16,65,80,100,100,8,129,56 
23,59,24,65,80 

26,20,16,65,80 
19,137,16,65,80,100,100,8,129,56 
23,59,24,65,80 

26,20,16,65,80 

19,137,32,65,80 

19,137,8,65,80 

19,137,8,65,80 

DATA 19,137,8,65,80 

DATA 19,137,8,65,80,0,0,0 

FOR X=49664 TO 497981 READ DT:PORE X,DTSNEX 


‚T 


35160 
35161 
35162 
35163 
35164 
35165 
35166 
35167 
35168 
35169 
35170 
35171 
35172 
35175 
ıNEXT 
35200 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
POKE 


20,50,16,129,0,150,150,16,129,0 
20,50,8,129,0,20,50,8,129,0 
150,150,16,129,0,20,50,8,127,0 
150,150,8,129,0,20,50,8,129,0 
20,50,8,129,0,20,50,8,127,0 
150,150,16,129,0,150,150,8,129,0 
150,150,8,129,0,150,150,8,129,0 
150,150,8,129,0,150,150,8,127,0 
120,120,8,129,0,120,120,8,129,0 
120,120,8,129,0,120,120,8,129,0 
120,120,32,129,0,120,120,8,127,0 
120,120,8,129,0,120,120,8,129,0 
120,120,4,127,0,150,150,4,129,0,0,0,0 
54295,0:FOR X=50104 TO 50175:POKE X,0 


PRINT" {CLEAR DOHN2}" 2 A$=CHR$ (34) 
35210 PRINT"LOAD"A$"J.R. -MAIN"A$" 8" 
35220 PRINT" CDOUNS>RUNCURB> "aPOKE 631,13:POKE 63 
2,13:POKE 198,2 
ENDE DES LISTINGS 


Compute mi 


<935> 
<218> 


<&4> 
<24> 
<238> 
<233> 
<240> 
<235> 
<242> 
<237> 
<22> 
<94> 
<142> 
<96> 
<144> 
<98> 
<146> 
<218> 


<6i> 
<147> 
<93> 
<147> 
<150> 
<96> 
<150> 
<153> 
<99> 
<153> 
<118> 
<223> 
<224> 
<225> 
<226> 
<54> 
<136> 
<87> 
<57> 
<139> 
<90> 
<60> 
<142> 
<93> 
<155> 
<170> 
<171> 
<172> 
<165> 


<75> 

<202> 
<125> 
<156> 
<199> 
<128> 
<77> 

<18> 

<19> 

<120> 
<121> 
<152> 
<125> 
<182> 


<198> 
<29> 
<94> 


<70> 





programme 





C-64 LISTINGS + CHECKSUMMEN (C V1.0) 


0 FOR X=50104 TO 50175:PDKE X,O:NEXT X 

1 POKESS272,PEEK (53272) AND2410R12: POKES3270,PEEK 
(53270) OR16: POKES4296, 15 

2 FOR X=12904 TO 12927:1POKE X-96,PEEK(X) aNEXTIFO 
RX=5888T05904: POKEX „13 NEXT 

3 POKE 2040,40:POKE 2041,41:1POKE 2042,421POKE 20 
43,431 POKE 2044,44: POKE2045,37 

4 POKE 2046,38: POKE 2047,39: POKES4295,2 

8 FOR X=0 TO 11:PRINT"(BROWN RIGHTS SD SE SH SE 
SH SE SH SF SH SF. SH SE. SH SE SH SE SH SE SH SE. 
SH SE. SH SD>" 

9 PRINT"{RIGHT® SE SG SI SG SI SG SI SG SI SG SI 
SG SI SG SI SG SI SG SI SG SI SG SI SEI" 

10 NEXT X 

11 POKE 53282,12:POKE 53283,1 

12 PRINT"{RVSQN WHITE SPACE3ISCORE:0000001SPACE2 
ILIVESSSCSPACEZIPARAVISION{SPACEZ HOHE BROHN}" IP 

RINT"{UP2 LIG.BLUEY"3 

13 POKE 2023,160:POKE 56295,1 

14 FOR X=0 TO 73PRINT"{SA SB SC SA SB SC SA SB)" 
ıPRINT"{SB SC SA SB SC SA SB SC}"sPRINT"ISC SA S 

B SC SA SB SC SA}" 

16 NEXT XıPRINT"CHONEI"3:FOR X=0 TO 7 

17 PRINTTAB(32)"{SA SB SC SA SB SC. SA}"ıPRINTTAB 
(32)"{SB SC SA SB SC. SA SB}"ıPRINTTAB(32)"{SC. SA 
SB SC SA SB SCH" 

19 NEXT X:FOR X=1063 TO 1943 STEP120:POKE X,66:P 

OKE X+40,67:POKE X+80,65 

20 POKE 54272+X,14sPOKE 54312+X,14:POKE 54352+X, 
141 NEXT X 

21 SYS 8285,62,160,110,160,158,160,206,160,254,1 

60,105,70,160,70,230,70 

22 SYS 8430,9,2,0,0,0,0,0,7,7,71POKES3269 , 255: PO 

KES3271 ‚2551 POKES3277 ,255 

23 POKE 53276,255 

24 PRINT"{YELLOW HONE DOUNS RIGHTIOYPARAVISIONR 

IGHT3ICOMPANY" 

25 PRINT"(YELLOW RIGHT16 DOWN2}PRESENTS: " 

26 PRINT"{DOHNS RIGHT4 YELLOWYWRITTEN{SPACEIINTS 

PACEY19B61SPACEIBY: {SPACEFULRICHTSPACEIMUEHL" 

27 PRINT"{DOHN RIGHT2ICOPYRIGHT{SPACEILIBGLSPACE 

IBY{SPACEIPARAVISION{SPACEITOMPANY" 

28 POKE: 53280,0ı1POKE 56322,2241SYS 832 

30 SYS 8493:L1=415C=0 

31 FOR LE=1 TO 9 

32 POKE 54295,0:5Y8 832 

33 X=INT(2#RND(1)) 

34 IF X=0 THEN FOR X=12880 TO 12903:P0OKE X-72,PE 

EK(X) ıNEXT 

35 IF X=1 THEN FOR X=12928 TO 12951:POKE X-120,P 

EEK (X) sNEXT $ 

40 POKE 53277,01POKE 53271 ,018YV58521,32,33,34,35 
,36,33,34,35 

41 POKE 53269,0:FOR X=0 TO 11:PRINT"{BROHWN RIGHT. 

8 SD SE SH SE SH SE SH SE SH SE SH SE SH SE SH S 

E SH SE SH SE SH H SD}" 

42 PRINT"{RIGHT® SE SG SI SG SI SG SI SG SI SG 5 
1 S@ SI SG SI SG SI SG SI SG SI SG SI SE)" 

43 NEXT X 

44 POKE 53282,12:PDKE 53283,1 

46 PRINT"CHOHE UP2 LIG.BLUEY";z ' 

47 FOR X=0 TO 7ıPRINT"{SA SB SC SA SB SC SA SB}" 
ıPRINT"(SB SC SA SB SC. SA SB SC}":PRINT"ISC SA S 
B SC SA SB SC SA}" 

48 NEXT X:PRINT"CHOHEY"J:FOR X=0 TO 7 

49 PRINTTAB(32) "SA SB SC SA SB SC. SA}"LPRINTTAB 
(32) "(SB SC SA SB SC SA SB}"sPRINTTAB(S2I "SC SA 
SB SC SA SB SCH" 








in 
® 


50 NEXT XıFOR X=1063 TO 1943 STEP120:POKE X,66:P 


OKE X+40,67:POKE X+80,65 

51 POKE 54272+X,14:POKE 54312+X,14:PDKE 54352+X, 
141NEXT X 

52 SYS 8430,0,1,2,3,4,5,6,7,8,0:POKE 5898,03: POKE 
5900,0:POKE 5896,1 : 

53 FOR X=1984 TO 2023:POKE X,140:POKE 54272+X,1ı 

NEXT X a 
54 ON LE GOSUB 200,220,240,260,280,300,320,340,3 

60 

55 SYS8285,150,200,100,30,140,180,200,90,110,120 


<28> 

<32> 

<236> 
<229> 
<151> 
<138> 
<212> 


<60> 
<149> 


<182> 
<218> 


<127> 
<11> 

<208> 
<166> 
<118> 
<192> 


<188> 
<131> 


<163> 
<239> 


<69> 
<56> 


<111> 
<8> 


<45> 
<32> 
<17> 
<190> 
<197> 


<67> 


<222> 
<245> 
<93> 


<182> 
<191> 


<160> 
<43> 
<240> 
<197> 
<149> 
<185> 
<76> 
<8> 





„147,150,220,60,115,210 

56 POKES3278,0:FOR WT=0 TO 1000:NEXT WT 

57 6Y58909 

58 IF PEEK(B189)=0 THEN BDTO 500 

59 FOR X=450 TO 500:POKE 2040, INT(X/10):15Y5 8192 
ıSYS B192:NEXT X 

&0 FOR X=0 TO 50:5Y5 8192:FOR WT=0 TO 10:NEXT WT 
sNEXT XsLI=LI-1 

&1 POKE 53269, 13 PRINT"{CLEARI"IIF LI=-1 THEN 100 
{) 

&2 PRINTTAB(7)"{HHITE DOUNS>YOUTSPACEIHAVE"LI"LI 


VEStSPACEILEFTTSPACE}Y! !!" 3 FORWT=OTO1000: NEXTWT:G 
0T032 


197 END 
200 POKE 
220 POKE 
240 POKE 
260 POKE 
289 POKE 
300 POKE 
320 POKE 
3409 POKE 
360 POKE 
370 END 
500 POKE 53269 ,0:PRINT"{CLEAR DOWN? RIGHT1O HHIT 
EIYOU{SPACEIMADETSPACEILEVEL"LE" {SPACE} ! !!"3POKE 
54295,7 
510 PRINT"£{YELLOW DOWN5S RIGHT8BYLEVEL{SPACE}IBONUS 
: "LE#1000"PDINTS" :SC=SC+(1000*LE) 
520 FOR WT=0 TO 1000:NEXT WT:POKE 54295,0:NEXT L 
E 
530 FOR X=0 TO 11:PRINT"{BROWHN RIGHTS SD SE SH S 


53269 , 313 RETURN 

53269,181: POKES3271,192: RETURN 
53269 ,221:3POKE 53271 ,03RETURN 

53269 ,2553 RETURN 

53269 ‚2553 POKES3271 , 1923 RETURN 
53269 ,63: POKES3271 ,200: RETURN 

53269 ,127:POKES3271 „26: RETURN 

53269 „255: POKES3S271 , 18: RETURN 

53269 ,255: POKES3271,13 RETURN 


SI SG SI SG SI SG SI SG SI SG SI SG SI SEI" 

550 NEXT X 

560 POKE 53282,12:PDKE 53283,1 

570 PRINT"{RVSON HHITE SPACE3}SCORE: 000000{SPACE 
ZILIVES:S{SPACEZIPARAVISION{SPACE3 HOHE BROHN}"s 
PRINT"{UP2 LIG.BLUE}Y"3 

580 POKE 2023,160:POKE 56295,1 

590 FOR X=0 TO 7:PRINT"{SA SB SC SA SB SC SA SB} 
"ZPRINT"{SB SC SA SB SC. SA SB SC}H"ıPRINT"(SC SA 
SB SC SA SB SC SA}" 

600 NEXT XsPRINT"{HONEI"3=FOR X=0 T0 7 

610 PRINTTAB(32)"{SA SB SC SA SB SC. SA}":PRINTTA 
B(32)"{SB SC SA SB SC SA SB}"sPRINTTAB(32) "SC S 
A SB SC SA SB SCH" 

620 NEXT XıFOR X=1063 TO 1943 STEP120:POKE X,661 
POKE X+40,67:POKE X+80,65 

630 POKE 54272+X,14:POKE 54312+X,14:1POKE 54352+X 
„IArNEXT X 

640 POKE 2040,51:POKE 2041,52:POKE 2042,53: PDKE 
2043,54: POKE 54295,& 

650 POKE 53271,255:POKE 53277 ,255 

660 SYS 8285,88,0,136,0,184,0,232,0,254,160,105, 
70,160,70,230,70 

670 POKE 53249,15:POKE 53287,0:POKE 53288,0:PDKE 
53289,0:POKE 53290,0 


675 PRINT"{YP15 WHITE RIGHTLIICONGRATULATIONS! !! 








690 POKE 53249,0:FOR WT=0 TO 2000: NEXT WT:SC=SC+ 
2000:G0OTO 1000 

999 END 

1000 PRINTTAB(15) "(DQHNI HHITEYGAMETSPACEIOVER!” 
sPOKE 54295,3 

1010 POKE 54295,0:PDKE 54295,7:5YS 845 

1020 PRINT" {DQHN RIGHTS}YOUR{SPACEISCORETSPACEYT 
S"SC"POINTS":FOR WT=0 TO 2000:NEXT WT=RUN 








2000 REMERRREREEEEEI EINEN IE NEE NEE SE SE 
2010 REM* * 
2020 REM# "JOB RACE’ E} 
20350 REM# [mm * 
2040 REM# * 
2050 REM# WRITTEN IN 1984 BY U. MUEHL * 
2060 REM# #* 
2070 REM#* (C) 1984 BY PARAVISION E 
2080 REM# * 
2090 REM# TOTAL LENGTH3 101 BLOCKS # 
2100 REM* %* 
2110 REM# WHAT MEANS 25,25 KBYTE RAM! # 
2120 REM#* * 
2130 REMIS ISIN IN IE SIEB IE NENNEN 


ENDE DES LISTINGS 


Compute mib 


<248> 
<32> 

<207> 
<153> 


<184> 
<173> 


<51> 


<215> 
<71> 
<113> 
<243> 
<168> 
<164> 
<69> 
<49> 
<83> 
<139> 
<119> 
<243> 


<215> 
<35> 
<132> 


<150> 


<233> 
<90> 
<188> 


<230> 
<19> 


<193> 
<85> 


<35> 
<1> 
<219> 


<190> 
355 


<37> 
<13> 


<106> 
<97> 


<56> 
<106> 


<103> 
<64> 


<250> 
<220> 
<b6> 
<122> 
<202> 
<96> 
<122> 
<117> 
<20> 
<137> 
<31> 
<157> 
<110> 
<1777 
<95> 


2/87 
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kurs 


ASSEMBLERKURS 


Teil 21 





Nachdem wir uns im letzten Teil mit dem Videochip VIC sowie dem 
Aufbau und der Handhabung von Sprites beschäftigt haben, möchten 
wir nun diese Kenntnisse verwerten. 


Bevor wir jedoch mit der Programmierung einiger Spritebefehle begin- 
nen, sollten Sie mit dem Spritedesigner aus dem letzten Heft einige 
Sprites entworfen haben. Wie wir im letzten Teil unseres Kurses Ben 
ren haben, benötigt jedes Sprite genau 64 Bytes an Daten. Die Frage ist 
nun: Wo legen wir die Daten eines Sprites im Speicher ab ? 


In der Standardkonfiguration, also ohne Verschiebung des 16k Video- 
bereiches stehen hier nur wenige Bereiche zur Verfügung: 


$2C0 - $2FE 704 - 766 Platz für Sprite 11 
$340 - $37E 832 - 894 Platz für Sprite 13 
$380 - $3BE 896 - 958 Platz für Sprite 14 
$3C0 - $3FE 960 -1022 Platz für Sprite 15 


Wie aus diesen Angaben zu ersehen ist, lassen sich in der Standard- 
Konfiguration eigendlich nur 4 Spritesblöcke verwenden. Es kommt 
noch schlimmer ! Muß ein Programm von Kassette nachladen, so wer- 
den die Spriteblöcke 13 bis 15 zerstört, da diese im sogenannten Kasser- 
tenpuffer liegen. Die bisherigen Angaben gelten nur solange wie man 
in Basic programmiert. Wird ein Programm vollständig in Maschinen- 
sprache entwickelt,so steht einem selbstverständlich der gesamte Basic- 
Speicher von $800 (2048) für Spritedaten zur verfügung. 


Aber auch in Basic gibt es eine Möglichkeit, mehr Platz für Sprites zu 
schaffen. Die schon erwähnten Speicherstellen $2B/$2C beinhalten 
nähmlich die Adresse des Basicanfangs. Nach dem Einschalten ist hier 
die Adresse $800 abgelegt, getrennt nach LOW und HIGH Byte. Um 
nun mehr Platz für Eoradeen zu schaffen, müssen wir lediglich die 
Anfangsadresse des Basicspeichers erhöhen. Die maximale Grenze läßt 


Soviel zu den theoretischen Möglichkeiten. Wir wollen uns jedoch in 
unseren ersten Experimenten auf die wenigen Spriteblöcke beschrän- 
ken, welche in der Standard Konfiguration zur Verfügung stehen. 
Das folgende Listing enthält die Einleseschleife sowie die Daten für drei 
einfache Sprites. Wer eigene Sprites entworfen hat kann diese ebenfalls 
für unsere Experimente verwenden, sollte jedoch die Einleseschleife der 
Zeilen 50000-50050 mit übernehmen.- 


50000 REM **%*%#* SPRITES EINLESEN ###** <139> 
50010 FOR I= 832 TOD 894:READ A:POKE I,AzNEXT I <«59> 
50020 FOR I= 896 TOD 958:READ A:POKE I,A:NEXT I <135> 
50030 FOR I= 960 TO 1022:READ A:POKE I,A:NEXT I <109> 
50040 POKE 2040,13:REM SPRITE O BLOCK 13 <150> 
50041 POKE 2041,14:REM SPRITE 1 BLOCK 14 <205> 
50042 POKE 2042,15:REM SPRITE 2 BLOCK 15 <4> 
50050 END <197> 
60000 REM DREIECK IM KASTEN <53> 
60010 DATA255,255,255,128,0,1,128,0,1,128,0,1,12 
8,0,1,128 <60> 
60020 DATAO,1,128,24,1,128,36,1,128,66,1,128,129 
‚1,129,0 <217> 
60030 DATA129,130,0,65,132,0,33,143,255,241,128, 
0,1,128,0,1,128 <238> 


60040 DATAO,1,128,0,1,128,0,1,128,0,1,255,255,25 
5 <218> 


&0050 REM FASS <69> 
60060 DATAO,0,0,0,0,0,0,0,0,0,60,0,0,66,0,0 <55> 
60070 DATA129,0,1,255,128,1,0,128,3,255,192,2,0, 

64,2,0 <16> 
60080 DATA64,3,255,192,1,0,128,1,255,128,0,129,0 
»0,66,0,0 <79> 
60090 DATA&0,0,0,0,0,0,0,0,0,0,0,0,0,0 <83> 
60100 REM KREUZ <162> 
60110 DATA128,0,8,64,0,16,32,0,32,16,0,64,8,0,12 

8,4 <145> 
60120 DATA1,0,2,2,0,1,4,0,0,136,0,0,80,0,0,32 <135> 
60130 DATAO,0,80,0,0,136,0,1,4,0,2,2,0,4,1,0,8 <52> 
60140 DATAO,128,16,0,64,32,0,32,64,0,16,128,0,8 <27> 


ENDE DES LISTINGS 


sich leicht bestimmen: 255 Sprites * 64 Bytes = 16320 - 


Wie mache ich ein Sprite sichbar ? 

Dank des mageren Commodore Basic sind zahlreiche Poke-Befehle 
notwendig um ein Sprite sichbar zu machen. Die folgende Befehlsfolge 
läßt Sprite O an den Koordinaten X=100, Y=100 erschienen: 


POKE 2040,13 :REM Block von Sprites 0 festlegen 
POKE 53269,1 :REM Sprite 0 einschalten 

POKE 53287,2 :REM Farbe von Sprite O 

POKE 53271,0 :REM Keine Y Vergrößerung 
POKE 53277,0 :REM Keine X Vergrößerung 
POKE 53276,0 :REM Sprites einfarbig . . 

POKE 53248,100 :REM X-Koordinate von Sprite O 
POKE 53249,100 :REM Y-Koordinate von Sprite O 


Wie man sieht, ist es recht umständlich ein Sprite auf dem Schirm sich- 
bar zu machen. Noch wesentlich komplizierter wird’ die Technik, 
wenn mehrere Sprites in verschiedenen Farben und Prioritäten auf dem 
Bildschirm bewegt werden sollen. Um dieses Problem zu beseitigen, ist 
es Ziel unseres Assemblerkurses eine Basic-Erweiterung zu entwickeln, 
welche uns die Steuerung von Sprites vereinfacht. 


Wir wissen inzwischen, wie Parameter an Maschinenprogramme über- 
geben werden können. Wir wissen auch welche Register zur Darstel- 
lung von Sprites manipuliert werden müssen. Das nachfolgende Assem- 
blerlisting nutzt unsere bisherigen Kenntnisse für eine kleiner Befehl- 
serweiterung. 


Das obige Assemblerlisting stellt drei kleine 
Routinen zur Verfügung: Sprite einschalten, 
Sprite ausschalten und Spritefarbe setzen 


Die Befehle werden jeweils mit einem SYS- 
Befehl und der entsprechenden Anzahl von 
Parameter aufgerufen: 


SYS 49152,0 :REM Sprite O einschalten 
SYS 49152,1 :REM Sprite 1 einschalten 
SYS 49168,0 :REM Sprite O ausschalten 


2 
20: C000 OPT 00,P1 
30: C000 *= $C000 
100: co00 TEMP = 704 ; ZWISCHENSPEICHER 
115: c000 CKCOM = $AEFD ;AUF KOMMA PRUEFEN 
120: C000 GETBYT = $B79E ;ZAHL HOLEN 
215: £C000 vIc = +D000 s BASISADRESSE VIDEOCHIP 
’ 
1000: CO000 20 FD AE SPREIN JSR CKCOM ;SPRITE EINSCHALTEN 
1005: C005 20 9E B7 JSR GETBYT ;NUMMER DES SPRITES HOLEN (0-7) 
1010: CO06 BD 34 CO LDA TEIN,X ;EINSCHALTBIT LADEN 
1015: CO007 OD 15 DO ORA WVIC+21 
1020: COOC 8D 15 DO STA VIC+21 ;SPRITE EINSCHALTEN 
1025: LCOOF 60 RTS 
s 
5100: CO010 20 FD AE SFRAUS JSR CKCOM ;SPRITE AUSSCHALTEN 


SYS 49168,7 :REM Sprite 7 ausschalten 


Compuhe mib 














programme 


5105: C0O13 20 9E B7 JSR GETBYT ;NUMMER DES SPRITES HOLEN (0-7) schiedlichen SYS-Aufrufe die Übersichtlich- 

5110: CO1& BD SC CO LDA TAUS,X ;MASKE LADEN le FE 

a viert keit ich ne rbessert wird, gehen wir ei 

5120: COiC 8D 15 DO STA VIC+21 ;5PRITE AUSSCHALTEN - nen anderen Weg. 

5125: COIF 60 RTS Ziel ist es eine Befehlserweiterung zu pro- 
5 - - 

5200: C020 20 FD AE SETCOLOR JSR CKCOM ;SPRITEFARBE SETZEN a a ee re aus 

5205: (023 20 9E B7 JSR GETBYT ;NUMMER DES SPRITES HOLEN (0-7) ommt. Wie dies möglich ist erfahren wir im 

5210: [026 BE CO 02 STX TEMP :MERKE NUMMER nächsten Heft. 

5215: C029 20 FD AE JSR CKCOM ;HOLE FARBE 

5220: CO2C 8A TXA Frank Brall 

5225: CO2D AE CO 02 LDX TEMP ’ : 

5230: CO0S0 9D 27 DO STA 53287,X Literatur: 

5235: COSS 60 RTS 6502 Microcomputer-Programmierung, Peter 
3 -V 

10000: C034 01 02 04 TEIN „BYTE1,2,4,8,16,32,64,128 Heuer, Hofacker-Verlag e 

10001: COSC FE FD FB TAUS „BYTE254 ,253,251 ,247,239,223,191,127 64 Intern, Angershausen, Becker, Englisch, 


3 Gerits, Data Becker Buch 
SYS 49184,0,2 :REM Sprite 0 erhält die Farbe 2 (rot) C64 P : ir Misch: h 
SYS 49184,1,0 :REM Sprite 1 erhält die Farbe 0 (schwarz) Winfri Ks x 2 Bank Kassera, Marl = pe 


Die arbeitsweise und Funktion unseres Maschinenprogrammes erklärt sich praktisch von selbst. Technik > 
Wir könnten die Anzahl der Befehlsroutinen fast unbegrenzt erweitern. Dies wäre praktischdie Profihandbuch, H.L. Schneider, Werner 
einfachste Form einer sogenannten Basicerweiterung. Da jedoch durch die zahlreichen unter-- Eberl, Markt & Technik 


Bei Fragen zu den Listings steht Ihnen unsere Programmierabteilung für telefo- 


nische Anfragen zur Verfügung. Bitte wählen Sie nur diese Nummer und rufen Sie 
nur zu den angegebenen Zeiten an: Montag-Freitag, 14-16 Uhr! 


05651/30013 





Bewerbung als Programmautor 





N Er a IT IVOLNaMON er 3 re re 7 ern HAN: 
Straße; mat > — er ee TS 0000 0 SV TR Wohnort Fe I Fe NER TE nme S 
Titel ds Pogrammes: —_____ _ Computersystem: 


Erforderlicher Speicherplatz: KBytes 





Erforderliche Peripherie: 


Ich versichere hiermit, daß ich der Autor des oben genannten Programmes bin und alle Rechte besitze. Ichbin damiteinverstanden, daß Sie 

mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckter Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. Solltemein Programmin derZwischenzeit 
von anderer Seite erworben worden sein, werde ich Sie unverzüglich benachrichtigen. Ich bestätige durch meine Unterschrift, daß ich 
Kenntnis davon habe, daß der Tronic-Yollag gegen Personen, die Programme einschicken, deren Urheberrechte sie nicht besitzen, rechtli- . 
che Schritte einleitet. 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 


Folgende Unterlagen liegen diesem Schreiben bei: 
Kassette: ____ _ __ Diskette ___ ____ Dokumentattioin:_Z___ Listing _________ Rückporto: 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): . 
a ; (Bitte zweimal unterschreiben!) 
Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 
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Artikelserie von Daniel Durstewitz 
und Waldemar Raaz 


Im letzten Heft haben wir begon- 
nen die Auswertung der Interrup- 
timpulse zu behandeln. In dieser 
Ausgabe fahren wir mit diesem 
Kapıtel fort: 


Im einzelnen sieht eine Erweite- 
rung der NMI-Routine im Be- 
triebssystem also folgendermaßen 
aus: 

1. Man erstellt ein Erweiterungs- 
programm, das nach erfolgtem 
NMI die Interruptquellen über- 
prüft und entscheidet, ob auf den 
Interrupt reagiert werden soll. An 
seinen Ausgängen sollte das Pro- 
gramm mit einem JMP $FE47 
(NMI-Routine im ROM) oder 
mit RTI (Return From Interrupt) 
enden. 

2. Man bringt das Erweiterungs- 
programm in den Speicher. 

3. Man legt in der Speicherzelle 
792 (hex. $0318) das Low-Byte der 
Startadresse des Erweiterungspro- 
gramms ab und in 793 (hex. 
$0319) entsprechend das High- 
Byte. 

Nun verzweigt das Betriebs- 
system bei einem NMI zuerst in 
die eigene Routine, in der unter 
Umständen entsprechend reagiert 
wird, und erst dann in die »echte« 
NMI-Routine. 


Demoprogramm-Nr.1 

Dies alles soll nun anhand eines 
Demoprogrammes einmal in der 
Praxis vorgeführt werden. Geben 
Sie dazu 2 Programmlisting 1 
ein. Sie können dabei alle REM- 
Anweisungen sowie die Kommen- 
tare nach dem Doppelpunkt in 
den Data-Zeilen weglassen. Sie 
sind für den Programmablauf un- 
relevant und dienen im Listing 
nur der Erläuterung und Über- 
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sichtlichkeit. In die Data-Zeilen 
wurde ein vollständig kommen- 
tiertes Assemblerlisting integriert, 
das dem Leser es erleichtern soll, 
das Programm nachzuvollziehen. 
Speichern Sie das Programm vor 
dem Starten unbedingt ab, damit 
es durch falschen Programmab- 
lauf nicht versehendlich zerstört 
wird, und Sie ohne Sicherheitsko- 
pie dastehen. Wenn Sie das Pro- 
gramm dann mit RUN starten, 
werden die Daten für das Maschi- 
nenprogramm eingelesen; haben 
Sie einen Fehler begangen, so teilt 
Ihnen das Programm dieses mit, 
und Sie sollten die Data-Zeilen 
noch einmal überprüfen. Anson- 
sten erscheint auf dem Bildschirm 
noch einmal eine Kurzerklärung 
der Routine, und Sie werden auf- 
gefordert, eine Taste zu drücken. 
Ist dies erfolgt, so werden Alarm- 
und Uhrzeit auf vordefinierte 
Werte eingestellt: die Alarmzeit 
auf genau 8 Uhr und die Uhrzeit 
auf 10 Sekunden vor acht. Dies 
geschieht in den Programmzeilen 
245 bis 260. Zunächst wird Bit 7 
im Register 15 der CIA #2 (Basi- 
sadresse 56576 - hex. $DD00) ge- 
löscht, was der CIA signalisiert, 
daß jetzt die Zeit gesetzt werden 
soll. Danach werden die Werte 
für die Uhrzeit in folgende Regi- 
ster geschrieben: 


Stunden - Register 11 
Minuten - Register 10 
Sekunden - Register 9 


Zehntelsekunden - Register 8. 
Alle Register sind im BCD- 


Format organisiert, was beim Be- 
schreiben der Register unbedingt 
beachtet werden muß. Bit 7 des 
Stundenregisters 11 dient zusätz- 
lich als AM/PM - Flagge: 0 = vor- 
mittags (AM), 1 = nachmittags 
(PM). Um nun die Alarmzeit ein- 
zustellen, wird Bit 7 im Register 
15 gesetzt (Zeile 255), und in die- 


selben Register wie oben wird 
diesmal die Alarmzeit geschrie- 
ben. Alarm- und Uhrzeit belege- 
nals dasselbe Register, weshalb 
auch extra ein Schaltbild (Bit 7 im 
Register 15) benötigt wird. In Zei- 
le 265 wird noch Bit7 im Register 
14 gesetzt,um sicherzustellen, daß 
die Echtzeituhr auch wirklich mit 
50 Hz getaktet wird und richtig 
geht, sowie die Interruptroutine 
initialisiert. Dazu wird die Starta- 
dresse der »erweiterten« NMI - 
Routine (NMINEU) in die Spei- 
cherzellen $0318/$0319 geschrie- 
ben und Bit 2 im INT MASK-Re- 
gister gesetzt, um den Alarm - 
NMI freizugeben (Zeilen 280 - 
325). Die eigentliche NMI - Rou- 
tine testet zu Beginn Bit 2 im INT 
DATA - Register. Ist es nicht ge- 
setzt, so ist eine andere Interrupt- 
quelle für den NMI verantwort- 
lich, und es wird der NMI - Routi- 
ne im Betriebssystem übergeben. 
Ist es gesetzt, so stimmen Alarm - 
und Uhrzeit überein, und es wird 
ein pulsierender Piepston erzeugt, 
um den Alarm anzuzeigen. Hier 
kann man ganz nach Belben na- 
türlich auch eine optische Alar- 
manzeige programmieren, oder 
optisch und akustisch gemischt. 
Gleichzeitig wird aber auch noch 
die Tastatur kontrolliert, so daß 


ein Tastendruck den Alarm ver- . 


stummen läßt. Besonders zu be- 
achten sind zwei Programmzei- 
len: zum einen Zeile 395, das CLI 
in dieser Zeile ist absolut notwen- 
dig, da das Programm sonst beim 
Eintreten eines Alarms abstürzen 
würde. Und zwar gibt CLI den 
Systeminterrupt wieder frei, der 
vom Rechner bei jedem NMI ge- 
sperrt wird. 


Ohne Systeminterrupt läuft beim 
C64 aber sehr wenig bis gar 
nichts, so daß er unbedingt wie- 
der freigegeben werden muß, um 
beispielsweise rie nachfolgende 
Tastaturabfrage zu Sraöglnhen. 
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Die andere wichtige Zeile ist 530: 
die Piepston - Routine schließt 
mit einem RTI und nicht - wie 
üblich - mit einem RTS ab. Dies 
ist ebenfalls unbedingt notwen- 
dig, dadie Routine quasi per Inter- 
rupt aufgerufen wurde. Wie 
ee oben erwähnt, werden bei 
jedem Interrupt Programmzähler 
und Prozessorstatus auf den Stack 
gerettet. Dort müssen Sie nach 
Ablauf der Interruptroutine na- 
türlich auch.wieder abgeholt wer- 
den, wofür der Befehl RTI sorgt. 


4. Der IRQ 

Die vierte Art von Interrupt ist 
schließlich der IRQ (Interrupt 
ReQuest), und es ist auch die 
nützlichste und vielseitigste. Im 
Gegensatz zum NMI und Reset ist 
der IRQ maskierbar, d.h. man 
kann ihn softwaremäßig verbie- 
ten, nämlich indem man im Pro- 
zessorstatusregister das Interrupt- 
flag auf 1 setzt, was mit dem Äs- 
semblerbefehl SEI (Set Interrupt- 
flag) möglich ist. Der Befehl CLI 
( Clear Interrupt) setzt das Inter- 
ruptflag auf 0 zurück, erlaubt also 
den IRQ wieder. Die Interrupt- 
quellen des IRQ sind jedoch teil- 
weise denen des NMI ähnlich. Er- 
st einmal wieder liegt die -IRQ- 
Leitung am Expansion Port am 
Pin 4 an und braucht nur mit 
Masse (GND) kurzgeschlossen zu 
werden, um einen IRQ auszu- 
lösen, was wiederum eher für ex- 
terne Baugruppen gedacht ist und 
an hier nicht weiter interessieren 
soll. 


Weiterhin kann man über die ent- 
sprechende Programmierung des 
ICR in der CIA #1 einen IRQ 
auslösen; und zwar entspricht das 
ICR in der CIA 41 genau dem in 
der CIA £2, nur daß es eben statt 
eines NMI einen IRQ auslöst. 
Entsprechend gilt natürlich das 
unter NMI-Programmierung 
über das ICR in der CIA #2 
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Gesagte auch für die IRQ - Pro- 
grammierung mit Hilfe des ICR 
in der CIA #1 und soll darum an 
dieser Stelle nicht noch einmal 
wiederholt werden. Das Besonde- 
re am IRQ ist jedoch, daß er vom 
Betriebssystem aktiv genutzt 
wird. 


Der vom Timer ausgelöste IRQ 
Dazu benutzt das Betriebssystem 
Bit O0 des ICR in der CIA #1, wo- 
"durch der IRQ jedesmal bei ei- 
nem Unterlauf von Timer A aus- 
gelöst wird. Effektiv heißt das, 
daß 60 mal in der Sekunde (also 
“ alle 16 Millisekunden) das laufen- 
de Programm in seiner Ausfüh- 
rung unterbrochen wird, ein IRQ 
ausgelöst und eine Routine im 
ROM mit der Adresse $ EA31 
(dez. 59953) angesprungen wird. 
Die dabei angesprungene IRQ- 
Routine nutzt das Betriebssystem 
für verschiedene »Wartungsauf- 
gaben«. So wird z.B. die interne 
Uhr weitergestellt, die Tastatur 
abgefragt und auch das Blinken 
des Cursors wird hier erzeugt. Es 
liegt natürlich auf der Hand, daß 
eine Interruptroutine, die 60 mal 
in der Sekunde durchlaufen wird, 
sich für eigene Erweiterungen ge- 
rade so aufdrängt, da sich Basic- 
programme (aber auch Maschi- 
nenprogramme) durch solche 
Maschinensprache-Erweiterungen 
enorm beschleunigen lassen (ge- 
rade Spiele: zum Beispiel eine 
Routine, die die Joystickeingänge 
abfragt und Srpcchen; die 
Sprites kontrolliert). Auch läßt 
sich auf diese Weise quasi ein 
Multiasking auf dem C 64 ver- 
wirklichen. Multiasking ist ein 
Begriff, der aus dem Feld der 
Computer-Großanlagen stammt, 
wo ein Computer scheinbar in 
der Lage ist, mehrere Programme 
auf einmal zu bearbeiten bzw. 
mehrere Steuerungs- oder Über- 
wachungsaufgaben parallel. In 
Wirklichkeit ist dies so realisiert, 
daß der Computer eine kurze 
Zeit (Sekundenbruchteile) an ei- 
nem Programm arbeitet, dann al- 
le Variablen abspeichert und zum 
nächsten Programm weitergeht. 
Ist er dann wieder beim ersten 
Programm angelangt, holt er die 
Variablen aus dem Arbeits 
speicher zurück und fährt eine 
kurze Zeit lang mit der Bearbei- 
tung fort. 
Dies alles regelt der Computer so 
schnell, daß ein Benutzer von all 
dem nichts bemerkt und für ihn 
alles gleichzeitig zu laufen scheint. 
Einen ähnlichen Effekt erreicht 


man eben über die IRQ - Pro- 
grammierung auf dem C 64; denn 
einmal an die IRQ - Routine ange- 
hängt, wird eine eigene Maschi- 
nenroutine unabhängig von ande- 
ren gerade laufenden Basic - oder 
Maschinenprogrammen 60 mal in 
der Sekunde abgearbeitet. Eine 
nette Idee wäre da doch eine 
IRQ-Routine, die eine über den 
Userport angeschlossene Alar- 


‚ manlage kontrolliert und bei Stö- 


rung Alarm schlägt. So könnte 
das Wachpersonal währenddessen 
mit Telespielen unterhalten wer- 
den; und beides liefe »gleichzei- 
tig« auf unserem C 64 . Eine ande- 
re bekannte Anwendung, die die- 
se Möglichkeit ausnutzt, ist z.B. 
eine Interrupt-Uhr. Es dürfte ei- 
gentlich keine Zeitschrift geben, 
in der C 64-Programme veröffent- 
licht werden und noch keine In- 
terrupt - Uhr für diesen Compu- 
ter abgedruckt wurde, so daß wir 
hier auf ein entsprechendes 
Beispiel-Programm verzichten 
wollen. Nur in Kürze zum Funk- 
tionsprinzip eines solchen Pro- 
grammes: Die IRQ - Einsprung - 
Adresse, die sich (auch im RAM) 
über die beiden Speicherzellen 
$ 0314 (dez. 788, LO - Byte der 
Adresse) und $ 0315 (dez. 789, HI 
- Byte der Adresse) festsetzen läßt, 
wird einfach auf eine eigene Rou- 
tine gestellt, die dann im Inter- 
rupt zunächst die aktuelle Zeit 
aus den RAM - Adressen $ AO 
(dez. 160), $ A1 (dez. 161). und 
$A2 (dez. 162) ausliest. Diese 
Adressen enthalten den Wert der 
Zeit als 24 - Bit - Binärzahl in 1/60 
- Sekunden, wobei $ AO die nie- 
derwertigen acht Bits dieser Bi- 
närzahl enthält. Die Zeit kann 
nicht über die Betriebssystem - 
Routine RDTIM (ReaD 'TIMe) 
ausgelesen werden, da diese mit 
dem Befehl CLI endet, was inner- 
halb unser IRQ-Routine einen 
Absturz des Computer verursa- 


chen würde. Die Umwandlung 


der 24-Bit-Binärzahl in . Bild- 
schirmcodes kann nun entweder 
über eigene Routinen oder unter 
Ausnutzung vorhandener ROM - 
Routinen geschehen. Falls Sie 
ROM - Routinen verwenden wol- 
len, finden sie eine zur Umwand- 
lung geeignete Befehlsfolge in den 
ROM - Adressen $AF48 bis 
$ AF58, die die entsprechenden 
Bildschirmcodes ab Adresse $ 100 
(dez. 256) ablegt und die Tabelle 
mit dem Code # $00 abschließt. 
Allerdings muß der erste Befehl 
von JSR $ AF84; in JSR $ AF87 
geändert werden. Auch sollte vor 


der Abarbeitung dieser Umwand- 
lungsroutine die gesamte Zero - 
Page (RAM - Speicherzellen $ 00 
bis $FF) in einen Zwischenspei- 
cher gerettet und hinterher zu- 
rückgeholt werden. Die Bild- 
schirmcode-Tabelle braucht jetzt 
nur noch in die rechte obere Bild- 
schirmecke übertragen zu werden. 
Das Programm muß dann mit ei- 
nem Sprung zur ursprünglichen 
IRQ - Routine mit der Adresse 
$EA31 abgeschlossen werden, 
sonst würde sich Ihr Computer 
bis auf weiteres leider verabschie- 
den, da ja z.B. die Tastatur nicht 
mehr abgefragt würde. 
Ganz so einfach ist das Verändern 
der IRQ-Einsprung-Adresse übri- 
ens auch nicht: dazu muß näm- 
lich erst einmal der Interrupt aus- 
geschaltet sein, denn es kann ja 
niemals das Lo-Byte der Adresse 
in $ 0314 genau gleichzeitig mit 
dem Hi-Byte in $ 0315 geändert 
werden und sobald ein Wert geän- 
dert wäre, würde der Computer 
beim folgenden IRQ mit Sicher- 
heit abstürzen, da dieser be- 
stimmt ausgelöst wird, - bevor 
auch der zweite Wert geändert ist. 
Dies läßt sich also nur mit einem 
kleinen Maschinenprogramm re- 
geln, daß zunächst mit dem As- 
semblerbefehl SEI jede IRQ-Mög- 
lichkeit ausschließt. Ein solches 
Maschinenprogramm wird u.a. 
auch in Listing 2 vorgestellt. Da- 
mit wären wir auch gleich bei-un- 
serem ersten Beispiel-Programm 
zum IRQ, das während des Inter- 
rupts eine Laufschrift in der er- 
sten Zeile erzeugt. Neben der 
Einschalt-Routine ist der neuen 
IRQ-Routine noch eine Ausschalt- 
Routine vorangestell, so daß 
außer mit der Tastenkombina- 
tion STOP/RESTORE auch in- 
nerhalb eines Programmes wieder 
auf die ROM-IRQ-Routine zu- 
rückgeschaltet werden kann. Die 
eigentliche IRQ-Routine muß na- 
türlich nicht mehr mit dem Be- 


-fehl SEI beginnen, da das Inter- 


rupt-Flag durch die Auslösung 
des IRQ bereits gesetzt wird. Im 
übrigen ist ein erneuter IRQ noch 
während der Abarbeitung einer 
IRQ-Routine durchaus denkbar 
(bei den im nächsten Kapitel vor- 
gestellten Beispiel-Programmen 
ist diese Maßnahme, wie Sie sehen 
werden, sogar erforderlich). 


Das Interrupt Request Register 
und das Interrupt Mask Register 
Es gibt noch vier weitere Mög- 
lichkeiten, einen IRQ auszulösen, 
und.damit wird es erst richtig in- 
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teressant. Diese weiteren vier 
Möglichkeiten sind durch das Re- 
gister 26 im VIC gegeben, es ist 
das sogenannte Interrupt Mask 
Register (IMR) mit der Adresse $ 
DO1A (dez. 53274). Hier kann ge- 
nau wie im ICR der CIA ä 1 
auch, ein gesetztes Bit eine Inter-; 
rupt-Möglichkeit bestimmen. Al- 
lerdings werden hier nicht wie im 
ICR durch Schreib- und Lesezu- 
griff zwei verschiedene Register 
angesprochen. Um erfahren zu 
können, wodurch ein. Interrupt 
ausgelöst wurde, gibt es hier näm- 
lich ein zweites Register, das In- 
terrupt Request Register (IRR) 
mit der Adresse $ D019 (dez. 
53273, Register 25 des VIC). Die- 
ses Register entspricht also in sei- 
ner Funktion dem INT DATA- 
Register beim Lesezugriff auf das 
ICR. Die Bitbelegung des IRR 
und des IMR ist genau die gleiche 
und soll im folgenden vorgestellt 
werden: 

Bit 0: 1 = Rasterzeilen-IRQ, aus- 
gelöst durch Register 18 des VIC 
Bit 1: 1 = Sprite-Hintergrund- 
Kollision, IRQ-Auslöser: Regi- 
ster 31 

Bit 2: 1 = Sprite-Sprite-Kollision, 
IRQ-Auslöser: Register 30 

Bit 3: 1 = Impuls vom: Lightpen 
oder auch Feuerknopf eines Joy- 
sticks an Pin 6 des Control Port 1 
Bit 4 - Bit 6: unbenutzt 

Bit 7:1 = mindestens eins der er- 
sten vier Bits ist gesetzt. 

Wird im IMR ein Bit gesetzt und 
durch ein entsprechendes Ereig- 
nis auch das korrespondierende 
Bit im IRR, so wird ein IRQ aus- 
gelöst. Zu beachten ist, daß das 
IRR nicht wie das ICR durch ein- 
faches Laden des Registerinhaltes 
gelöscht wird, sondern extra ge- 
löscht werden muß (sonst folgt 
dauernd ein Interrupt, was einem 
Absturz des Computers gleich- 
kommt). Gelöscht wird das IRR 
dadurch, daß derselbe Wert, der 
aus dem Register herausgelesen 
wurde, auch in selbiges wieder 
hineingeschrieben wird (Sie kön- 
nen das bei den Beispielprogram- 
men Listing 3 bis Listing 6 sehen). 
Die Möglichkeit bei einer Sprite- 
Sprite- oder Sprite-Hintergrund- 
Kollision einen IRQ auszulösen, 
hat den Vorteil, daß das betreffen- 
de Ereignis sofort behandelt wer- 
den kann, ohne daß erst andere 
Programmteile bis zu einer ent- 
sprechenden Abfrage durchlaufen 
werden müssen. Der gleiche Vor- 
teil bietet sich auch beim Light- 
pen, so daß z.B. ein von erwähn- 
tem Gerät angesprocher Bild- 





schirmpunkt sofort gesetzt wer- 
den kann. Ein Impuls an Pin 6 des 
Control Port 1, d.h. ein Kurz- 
schluß zwischen Pin 6 (Button 


A/LP) und Pin 8 (GND = Mas-. 


se), wie er auch vom Lightpen be- 
wirkt wird, kann auch durch 


Drücken der Feuerknopfes eines 
Joysticks oder Paddles erzeugt 
werden, was besonders für Tele- 
spiele interessant ist. 

So könnte durch das Drücken des 
Feuerknopfes ein IRQ ausgelöst 
werden, in dem z.B. der Abschuß 


einer Rakete organisiert wird, die 
dann während des IRQ parallel 
zum laufenden Hauptprogramm 
gesteuert wird. 

Aus diesen Möglichkeiten kön- 
nen auch größere Geschwindig- 
keitsvorteile resultieren, da ja sic 
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dauernd wiederholende Abfragen 
im Programm entfallen und zwei 
Dinge quasi parallel zueinander 
ablaufen können. 


Fortsetzung folgt! 
xxx 


Dembolisting 1 


C-64 LISTING + CHECKSUMMEN (C v1.0) 


























































































































100 REM # ALARMUHR AUF INTERRUPTBASIS * <206> 
105 REM <248> 
110 REM DIESES PROGRAMM DEMONSTRIERT DIE PROGRA 
MMIERUNG EINER ALARMUHR UNTER <52> 
115 REM AUSNUTZUNG DER ECHTZEIT- UND ALARMUHR 

IN DER CIA #2 UND DEM ZUGE- <13> 
120 REM HOERIGEN INTERRUPTBIT IM ICR, DAS BEI U _ 
EBEREINSTIMMUNG DER ALARMZEIT <119> 
125 REM MIT DER UHRZEIT EINEN NMI AUSLOEST. <60> 
130 : <188> 
135 : <193> 
140 FORN=491521049252: READA$:A$=LEFT$(A$,2) <164> 
145 Al=ASC (LEFT$(A$,1)) EAZ=ASC (RIGHTS (AS$,1)) <23> 
150 Al=A1-48: IFA1>9THENAI=AL-7 <38> 
155 A2=A2-48: IFA2>9THENAZ=A2-7 <99> 
160 A=16*A1+A2: Z=Z+A:POKEN,A:NEXT <217> 
165 IFZ<>14211THENPRINT" {DOHNIFEHLER{SPACEFINISP 
ACEIDEN{SPACEIDATA-ZEILEN! "sEND <177> 
170 : <228> 
175 : <233> 
180 PRINT"{CLEAR DOHN SPACEYALARMUHR" PRINT" SPA 
CE}========"; PRINT <96> 
185 PRINT" (SPACEIDIESES{SPACEIPROGRAMM{SPACE2ISI 
MULIERT{SPACEIEINE{SPACEFALARM-{SPACE}" <246> 
190 PRINT" {SPACEFUHR SPACE FAUF {SPACE}DEM{SPACE2} 
COMMODORE {SPACE}64{SPACEIUNTERSPACE}BENUT-{SPAC 
Ey" <102> 
195 PRINT"SPACEIZUNG{SPACE>DER{SPACEIECHTZEITUH 
RISPACE} IN{SPACEIDER{SPACEITIALSPACEIRZTSPACEIUN 
DISPACE>" 3 <195> 
200 PRINT" {SPACEIVERWENDUNG{SPACE2}DER{SPACEIENT 
SPRECHENDEN{SPACE23 INTER-{SPACE}Y" <255> 
205 PRINT" {SPACEIRUPTMGESLICHKEITEN. {SPACEZIDIET 
SPACE3UHRZEIT{SPACEIWIRD{SPACEI" <52> 
210 PRINT" {SPACEIAUF{SPACEI7:59:50:0, {SPACEIDIET 
"SPACE 3ALARMZEIT{SPACEIAUF {SPACEIGENAUTSPACE}" <76> 
215 PRINT" {SPACEIB:00:00:0{SPACEIEINGESTELLT. {SP 
ACEYSOBALD{SPACEISIETSPACEIEINELSPACEI" <84> 
220 PRINT" {SPACEITASTE{SPACEIDRUECKEN, {SPACEILAE 
UFT{SPACEIDIESPACE3 ZEIT. {SPACEIBITTELSPACEI" <167> 
225 PRINT" (SPACEISTOPPENTSPACEISIETSPACEIDIETSPA 
CE2}10XSPACEISEC. (SPACEIBIS{SPACEI ZUM{SPACEIALAR 
MISPACE}" <228> 
230 PRINT" SPACEIRUHIG{SPACEIMIT ! (SPACEZI<TASTE> 

" . <39> 
235 GETG$: IFG$=""THEN235 <227> 
240 B=56576 : REM BASISADRESSE DER CIA-#2 <229> 
245 POKEB+15,PEEK(B+15)AND127:REM ZEIT SETZEN => 

7:59:50:0 <138> 
250 POKEB+11,7:POKEB+10,5#*16+9: POKEB+9 ,5#1&:POKE 
B+8,0 <35> 
255 POKEB+15,PEEK(B+15)0R128 :REM ALARM SETZEN=> 

8:00:00:0 <88> 
260 POKEB+11,8:POKEB+10,0:POKEB+9,0:POKEB+8,0 <177> 
265 POKEB+14,PEEK (B+14) OR128:SYS49152: END <76> 
270 : <73> 
275 : <78> 
280 DATA A2,20 2 START LDX #$<NMINEU "{SPACE 
3NEUE {SPACEINMI-ADRESSE{SPACEILO-BYTE <166> 
285 DATA AO,CO s LDY #$>NMINEU "SPACE 
INEUE {SPACEINMI-ADRESSE{SPACEIHI-BYTE <157> 
290 DATA A9,F4 s LDA #$F4 "SPACE 
IMASKE TSPACEIFUER {SPACE} ALARM-INTERRUPT {SPACEIFR 
EI <97> 
295 DATA D0,06 B BNE $SETZEN "X{SPACE 
3---> {SPACE} IMMER <91> 
300 DATA A2,47 B LDX #847 “SPACE 
YALTE{SPACEINMI-ADRESSE{SPACEILO-BYTE <205> 
305 DATA AO,FE B LDY #$FE "SPACE 
FALTESPACEINMI-ADRESSESPACEIHI-BYTE <216> 
310 DATA A9,04 P LDA #304 "SPACE 
3MASKESPACE}FUERTSPACEIALARM-INTERRUPT{SPACEISP 
ERREN <67> 


























315 DATA 8E,18,03 s SETZEN STX $0318 "SPACE 
I+NMI-VEKTOR{SPACE}ISETZENTSPACEILO-BYTE <155> 
320 DATA 8C,19,03 : STY $0319 "SPACE 
193HI-BYTE <79> 
325 DATA 8D,0D,DD : STA $DDOD "ISPACE 
3ICR{SPACE} INTSPACEIDERTSPACEITIAHZTSPACEISETZEN <39> 
330 DATA 60 E RTS "SPACE 

3 ZURUECK (SPACE} INSTSPACEIBASIC <210> 
335 DATA EA s NOP ” <168> 
340 DATA EA s NOP " <173> 
345 DATA EA 3 NOP “ <178> 
350 DATA EA B NOP " <183> 
355 DATA EA : NOP “ <188> 
360 DATA EA 3 NOP " <193> 
365 DATA EA : NOP " <199> 
370 DATA EA s NOP “ <203> 
375 DATA AD,OD,DD : 'NMINEU LDA $DDOD "SPACE 
F+ICR{SPACE}I INTSPACEIDERTSPACEITIALSPACEIHZISPACE 
}LESEN <a5> 
380 DATA 29,04 : AND #304 "SPACE 
I3BIT{SPACEI2SPACE} (UHRZEIT=ALARMZEIT) (SPACEIGES 
ETZT{SPACE}? <77> 
385 DATA D0,03 B BNE $ALARM "SPACE 

3JA, {SPACE3DANN{SPACE}ALARMTON{SPACEIERZEUGEN .<120> 
390 DATA 4C,47,FE : JMP $FEA7 "SPACE 

3NEIN, {SPACE}DANN{SPACE} ZUR{SPACEINORMALEN{SPACE 
YNMI-ROUTINE <172> 
395 DATA 58 = ALARM CLI "SPACE 

} INTERRUPT {SPACEIWIEDER{SPACE}FREIGEBEN <58> 
400 DATA A9F,OF : LDA #$0F "SPACE 
3SID-REGISTER{SPACE}FUER{SPACEIALARM{SPACEIVORBE 
REITEN: <54> 
405 DATA 8D,18,D4 : STA $D418 "SPACE 
+}LAUTSTAERKE <189> 
410 DATA A9,00 3 LDA #300 “ <46> 
415 DATA 8D,0E,D4 : STA $D40E "SPACE 
FREQUENZ {SPACEILO-BYTE <78> 
420 DATA A9F,C8B 2 LDA #$C8 “ <46> 
425. DATA 8D,OF,DA : STA $D40F "SPACE 
IFREQUENZ (SPACEIHI-BYTE <62> 
430 DATA A9,05 2 LDA #$05 " <166> 
435 DATA 8D,13,D4 : STA $D413 "SPACE 
F}ANSCHLAG/ABSCHWELLEN <204> 
440 DATA A9,FS” : LDA #$F3 " <20> 
445 DATA 8D,14,D4 ı STA $D414 "SPACE 
IHALTEN/AUSKLINGEN <7> 
450 DATA A9,10 : LDA #$10 n <104> 
455 DATA 8D,12,D4 s STA $D412 "SPACE 
ITON{SPACEFAUSSCHALTEN ; <31> 
460 DATA CA s LOOP1 DEX "XSPÄCE 
}ZEITSCHLEIFE <129> 
465 DATA DO,FD a BNE $LOOP1 " <156> 
470 DATA 88 3 DEY " <203> 
475 DATA DO,FA 2 BNE $LOOPI . " <148> 
480 DATA 49,11 . LDA #811 " <154> 
485 DATA 8D,12,D4 : STA $D412 "SPACE 
+TON{SPACEFEINSCHALTEN <226> 
490 DATA CA = LOOP2 DEX “(SPACE 
}+ZEITSCHLEIFE <168> 
495 DATA DO,FD s BNE $LOOP2 ” <202> 
500 DATA 88 3 DEY ” <233> 
505 DATA DO,FA . BNE $LODP2 ” <194> 
510 DATA 20,E4,FF = LEER JSR $FFE& "SPACE 
3--—->{SPACE}TASTATURPUFFER{SPACEIABFRAGEN <154> 
515 DATA FO,ES 2 BED $LEER "SPACE 
IWENN{SPACEHLEER, {SPACEIDANN{SPACEIWEITERTSPACEI 
ABFRAGEN <235> 
520 DATA A9,00 : LDA #300 "SPACE 
FAUFTSPACE}ITASTENDRUCK {SPACEILAUTSTAERKEISPACEIA 

UF <221> 
525 DATA 8D,18,D4 : STA $D418 "SPACE 
INULL{SPACEISTELLEN <165> 
530 DATA 40 ® RTI “ <24> 
535 s <B3> 
540 REM = WRITTEN 1986 BY WALDEMAR RAAZ = <250> 


ENDE DES LISTINGS 


Compute mit 


programme | 





Schneider CPC 464/664/6128 


Ein Actionspiel mit toller Grafik 
und phantastischen Sprites. Wir 
schreiben das Jahr 3005. Die HY- 
DRA, ein riesiges Forschungs- 
raumschiff, ist seit 5 Jahren unter- 
wegs, um bislang unbekannte 
Sektoren der Galaxis zu erfor- 
schen. Da es sich um einen friedli- 
chen Auftrag handelt, legte man 
beim Bau der HYDRA keinen 
großen Wert auf die militärische 
Verteidigung. Man gab ihr nur ei- 
nen Geleitjäger mit, da man nicht 
an eine Bedrohung glaubte. Sie 
sind der Pilot dieses Jägers, und 
hatten bis jetzt nicht viel zu tun. 
Das ändert sich nun schlagartig. 
Als die HYDRA in das Gebiet 
der Zarks einfliegt sehen diese 
darin einen kriegerischen Akt 
und greifen die HYDRA sofort 
an. Sie sind nun die einzige Hoff- 
nung für das wehrlose Schiff! Ihr 
Auftrag lautet: Verteidigen Sie die 
HYDRA! 


Die HYDRA besteht aus. drei 
Sektoren, die der Reihe nach an- 
geflogen werden, nachdem je- 
weils 15 Angreifer vernichtet hat, 
ohne selbst getroffen zu werden. 
Von Level zu Level wird das 
Spielgeschehen schneller, so daß 


Sie höllisch aufpassen müssen. Sie 
haben drei Jäger zur Verfügung - 
sind diese alle zerstört, so ist 
Spiel beendet. 


Eingabehinweise: 

Da durch die angewendete 
Programmiertechnik frei Basic- 
Speicher nur noch 16 K umfaßt, 
mußte das Programm in zwei Tei- 
le aufgeteilt werden. Teill, das 
Hauptprogramm, lädt drei Binär- 
Dateien nach, die von Teil 2, dem 
Data-Lader, erstellt wurden. 


Diskettenbenutzer haben es ein- 
fach. Sie gehen wie folgt vor: 


Teil 1 eingeben und unter dem 
Namen HERO abspechern. Nun 
Teil 2 eingeben und unter DATA 
abspeichern. Nun Teil 2 laden 
und mit RUN starten. Ist alles 
fehlerdrei eingegeben worden, so 
werden nach kurzer Zeit 3 Datei- 
en auf die Disc geschrieben. 


Zum Spielen wird nur noch das 
Programm HERO geladen und 
gestartet. 


Kassettenbenutzer benutzen am 
besten zwei Kassetten. 


Teil 1 eingeben und auf Kassette 1 
abspeichern. Kassette nicht zu- 
rückspulen! 


Teil 2 eintippen und auf Kassette 
2 absaven. Nun Teil 2 laden und 
anschließend Kassette 1 einlegen. 
Teil 2 mit RUN starten. Es wer- 
den jetzt nach kurzer Zeit die drei 
Binär-Dateien abgespeichert. 

Zum Spielen wird nun nur noch 


die Kassette 1 benötigt. Teil 1 la- 
den und mit RUN starten. Die 
Binär-Dateien werden automa- 
tisch nachgeladen. 


Viel Erfolg beim Eintippen dieses 
Programmes und viel Spaß! 





Schalt jetzt mal »The Hero« ein! 





SCHNEIDER LISTING MIT CHECKSUMMEN 


v2.0 


EEE EN 
+ THE HERO * 
# (c) 1986 * 
'* OTTFRIED * 
’+ SCHMIDT * 
EEE 


SOUAUN®» 


10 MODE O:INK 0,0:BORDER O:PAPE 

RO 

20 INK 1,3:INK 2,15: INK 3,25 

30 INK 4,0: INH 5,1:INK 6,13: INK 
7,24: INK 8,6: INK 9,6,24 

40 ENV 1,=11,5000:ENV 2,=11,250 

O:ENT-1,3,4,2,3,-4,2,2,2,1 

50 hsc=0 

&0 MEMORY &3SFFF 

79 FEN 2:LOCATE 4,12:FRINT"BITT 

E WARTEN" 

80 FEN 3:L0CATE 5,14:FRINT"LADE 
DATEN" 

90 LOAD" !heromc" „&9200 

100 LOAD" !graspr"” „&8200 

110 LOAD" !sprite” „SAO0O 

120 CALL %BBO3 

130 CLS:PEN 2:LOCATE 6&,10:PRINT 


"THE HERD" <{LF} 
140 LOCATE 6,12:PEN 3:PRINT" (C) 
1986" “013 
£0D3 | 150 PEN S:LOCATE 2,14:PRINT"OTT 
{EF} |FRIED SCHMIDT" {AG}? 
{LH} |160 PEN 8:LOCATE 5,15:PRINT"PRE 
{BL} |SS FIRE" {GE} 
{JH} 1170 PEN 9:LOCATE 6,18:PRINT"TO 
{DK} |START" INC} 
{DM} |180 GDSUB 1410:RESTORE {ML} 
190 FOR i=&A690 TO &A670+&70:PO 
{KA} IKE i,0:NEXT i {04} 
{CJ} 200 CALL &9250:L0OCATE 1,20 {ML} 
210 DATA 82,82,82,83,83,84 {KH} 
{DB} |220 DATA 00,70,E0,50,C0,30 PL} 
230 DATA AO,AO,A1,A1,A2,A2,A3,A 
{MB} |3 {Im} 
{BH} |240 DATA 70,E0,50,C0,30,A0,10,8 
{FK} |O {NC} 
250 DATA AZ3,A4,A4,A5,N5,Ab {01} 
{J0} |260 DATA F0,50,D0,40,B0,20 HM} 
270 DIM h(6&),1(8) ,ah(B8) ,al (8) ,e 
{PB} |h(&) „el (6) {NK} 
{CD} |280 FOR i=1 TO 4:READ a$:hli)=V 
{NH} |AL("R"+a$) NEXT i {FI} 
{EJ}|290 FOR i=1 TO 6:READ a$:1l(i)=V 
tAE3 |AL("&"+a$) NEXT i {AFP} 


300 


FOR i=1 TO 8:READ a$:ahli)= 


Gompute enib 


VAL("Kr+as)sNEXT i {MG} 
310 FOR i=1 TO 8:READ a$:al(i)=- 5 
VAL("R"+a$) NEXT i . {0P} 
320 FOR i=1 TO 4:READ aszehli)= 
VAL"A"+a$) NEXT i {003 
330 FOR i=1 TO 6:READ a$:el (i)= 
VAL("L"+a$) NEXT i {CH} 
340 DATA 129,2,1,60,0,0,15,50,0 {AD} 
350 DATA 130,2,1,40,0,0,14,45,0 {Bil} 
360 FOR i=%8500 TO %B86411:READ a 
zPOKE i,a:NEXT i {6F} 
370 sc=O:bild=1:levi=4: lev2=151 
slev=1:geq=0:1iv=3 {HP} 
380 POKE &9135,l1evi:POKE %I136, 
lev2 <c9} 
390 x=2:y=0:sIF bild=1 THEN REST 
ORE 460 ELSE IF bild=2 THEN RES 
TORE 580 ELSE RESTORE 700 £01}> 
400 FOR i=1 TO 11:FOR k=1 TO 11 {CI} 
410 READ a:POKE &9100,y:POKE &9 
101,x {HP} 
420 PDKE %7102,1(a)=zPOKE %9103, 
hta) {FB} 
430 CALL %92C7:x=x+7:NEXT k {NJ} 
440 x=2:y=y+B:NEXT i {FI} 
A450 "BILD 1 {DO} 
460 DATA 2,2,2,2,2,2,2,2,2,2,2 {0M} 
470 DATA 2,3,3,5,1,1,1,3,3,3,2 {E0} 
2187 











480 
490 
500 
510 
520 
SS0 
540 
550 


560 
570 
580 
590 
600 
610 
620 
630 
640 
850 
660 
670 
680 
690 
700 
710 
720 
730 
7409 
750 
760 
7709 
780 
790 
800 
810 
820 .° 

830 PEN 3:LOCATE 1,23:PRINT" HI 
GH"shscz; :LOCATE 13,253:PRINT"LEV 
EL";1evs 

840 PEN 2:LOCATE 1,25:PRINT"SCO 
RE"3Sc5sLOCATE 13,25:PRINT"LIVE 
S"slivs 

850 FOKE %9104,3:PDKE &9105,0:P 
OKEE %9106,45 

850 FOKE &97108,4:POKE %97111,5:P 
OKE &911A,S:REM ZAEHLER 

870 POKE &9109,72:POKE &97112,72 
:POKE &911B,72:REM X 

880 POKE &710E,1:POKE &9117,2:P 
OKE %9120,1:REM VEKTOR 

890 POKE-&9I10F,4:POKE &9118,5:P 
OKE %&9121,3:REM VEKTOR ZAEHLER 
9700 FOKE &9110,4:FOKE %9119,5:P 
OKE %97122,3:REM ALTER VEKTOR ZA 
EHLER 

910 POKE &9128,0:POKE %F12C,0:P 
OFE %971I0,0:POKE &7134,0:POKE %& 
9107,0 

920 al=INT (RND#8) +13a2=INT (RND* 
8) +1: a3=INT (RND#8) +1 

930 POKE %I10C,altal):POKE &910 
D,ahlal) 
3740 POKE 
6,ah (a2) 
950 FOKE &F11E,al (a3) :FOKE 4911 
F,ahta3) :REM SFRITENUMMER 

960 ai=INT (RND*80) : a2=INT (RND*8 
0) za5=INT (RND*80) 
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Oasase dan case 


S#=-NNN2POBNNN®» 


&9115,al (a2) :FOKE %911 


970 FOKE &I10A,al:POKE %I113,a2 


:FOKE %911C,a3 

980 FOKE %9123,0 

9970 EALL %972D7 

1000 IF PEEK(%9123)=1 THEN FOKE 
&971253,0:G0T0 1040 

1010 IF PEEK(%&7126)<>0 THEN GOT 

0 1090 

1020 IF FEEK(%F134)=1 THEN POKE 
%97134,0:60T0 1040 

1030 GOTO 9770 

1040 POKE %&7100 ,PEEK (%97106) :POK 

E &9101 ,PEEK (&F7105) 

1050 FOKE %9128,0:POKE &912C,0: 

FOKE &7130,0 

1060 GOSUB 1250:CALL &9233:CALL 
&920C: FOR i=1 TO. SO0O:NEXT i:PO 

KE %&97107,0 

1070 liv=liv-isIF l1iv<O THEN GO 


{HF} 
{CD} 
{CN} 
{NP} 
{EL} 
{FC} 
tKC} 
{FJ} 


{ON} 
{EE} 
{EK} 
{HB} 
{JD} 
{JB} 
{DI} 
IM} 
{JG} 
{CN} 
{Jr} 
{KE} 
{EL} 
{DG} 
{D6} 
{DF} 
{DF} 
{BE} 
{GP} 
{KF} 
{IN} 
{JA} 
{PP} 
{ON} 
{BP} 
{NM} 
{DM} 


{GP} 


{NB} 
{JH} 
{PI} 
{PI} 
{PI} 


{CH} 


{BB} 


{HE} 
{NL} 
{JB} 
{PI} 
{FF} 
iFM} 


{EI} 
<0C} 


AG} 


{JB} 


{0A} 


{EF} 
{EK} 


{CF} 


{LN} 


{CF} 


TO 1340 

1080 geg=0:60T0 830 

1090 x=FEEK (&7126):IF x=1 THEN 
adr=%&7107 ELSE IF x=2 THEN adr= 
«7112 ELSE adr=%911B 


1100 FOKE %7100 ,PEEK (adr+1) :POK 

E %9101,FEEK(adr) 

1110 GDSUB 1250 

1120 FOKE adr „72:POKE (adr+7) „IN 

T{RND#5) +1 

1130 x=INT (RND*#8) +1:POKE (adr+3) 
‚„all(x)=:POKEladr+4) ,„ah(x) 

1140 POKE %97107,0:POKE %9125,0 
1150 sc=sc+10+levsLOCATE 5,25:P 

RINT sc; :geg=geg+1: IF geg>=15 T 

HEN geg=0: flag=1:lev=lev+1:lev2 

=1ev2-50: IF lev2<=1 THEN lev2=1 

Si:levi=levi-1:IF levi<=1 THEN 

levi=1 

1160 IF flag<>1.THEN POKE (adr+1 
) „INT{RND#80) :GDTO 990 

1170 flag=0:bild=bild+1:IF bild 
>3 THEN bild=1 

1180 CALL %97233:LOCATE 2,14:PRI 

NT"NOW ENTER LEVEL":levs 

1190 SOUND 129,60,40,15,1:50UND 
1,60,20,15,1:2SQUND 1,40,60,15, 
1 

1200 WHILE S5@(1)>127:WEND 

1210 SDUND 1,650,40,15,1:SOUND i 
‚60,20,15,1:25QUND 1,40,40,15,1: 

WHILE SQ@(1)>128:WEND - 
1220 SOUND 1,47,60,15,1:50UND 2 
‚60,60,15,1 

1230 FOR i=1 TO 1000:NEXT i 
1240 GOTO 380 

1250 SOUND 129,2,80,15,1,0,30 
1260 FOR i=1 TG &#:CALL &BD19 
1270 FOKE &9102,elli):sPOKE &910 

S,ehti)=zCALL %92C07 

1280 SOUND 130,1,5,15,1,0,30-i: 

CALL &BD19F:NEXT i 

1290 FOR i=6 TO 1 STEP-1:CALL & 

RD1? 

1300 POKE &9102,el (i):zPOKE &910 

S,ehli)sCALL %92C7 

1310 SDUND 130,1,5,15,1,0,30-i3 

CALL &RDI9:NEXT i 

1320 POKE &97102,%&90:POKE &7103, 

Ab: CALL &92C07 

13530 RETURN 

13540 SOUND 129,10,70,15,1,1,303 

CALL &97233:CLS:FOR i=1 TO 24:PE 

N INT(RND#10)+13LOCATE 5,i:PRIN 

T"GAME DVER"=SNEXT i 

1350 FOR i=1 TD 500:NEXT i 

1360 IF hsc<sc THEN hsc=sc 

1370 CLS:PEN 2sSLOCATE 8,10:PRIN 

T hse:LOCATE 5,12:PRINT"HIGH SC 

ORE" 

1380 PEN 3:LOCATE 8,14:PRINT sc 
:LOCATE 5,1&:2PRINT"LAST SCORE" 
1390 GOSUB 1410:RESTORE 

1400 GOTO 370 

1410 ENV 3,=11,7000:ENV 4,1,15, 
1,15,-1,55ENT-2,3,0.75,6,3,-0.7 

5,6:ENT-3S,2,2,4,2,-2,4,1,1,7,1, 

17. 

1420 b=4:x=478:RESTORE 1490 
1430 READ a:IF a=0 THEN RESTORE 
1500:READ a:IF b=4 THEN b=2 EL 

SE b=4 

1440 IF a<>1 THEN SOUND 130,a#2 
‚70,7,3,2:SUOUND 132,a%b,1640,7,3 


’ 
1450 SOUND 1,x,24,10,4,3:IF x=4 
78 THEN x=377 ELSE x=478 


1460 IF JDY(O)AND i& THEN RETUR 
N 

1470 WHILE S@(1) >127:WEND 

1480 GOTO 1430 

1490 Ay1,1 

1500 DATA 239,1,239,1,190,159,1 
90,1 

1510 DATA 1,1,239,1,239,1,190,1 
59,190,1 


Sompube mib 


Programme 


{HF} 1520 DATA 


{CF} 


{GM} 
iPJ} 


{FG} 


{6D} 
{MD} 


{113 
{IK} 
{LB} 
{MO} 
{DB} 
top} 
{CH} 
{PL} 
{31} 
{CE} 
{E0} 
{NP} 
{CJ} 
top} 
{HP} 
{FL} 
{CF} 


103} 
{AJ3 


{CE} 
{33} 
<JL} 
{FB} 
{PG} 


{AB} 
{BH} 


{6F} 
{BK} 


{BL} 


{HB} 
{CL} 
{64H} 
{CI} 
{PE} 
{CH} 
{CM} 


{KD} 


1,1,190,1,190,1,159,1 


{PD} 27,159,1 . {HD} 
1530 DATA 1,1,284,1,284,1,190,1 
59,190,1 {LN} 
1540 DATA 1,1 {BF} 
1550 DATA 239,1,190,1,190,1,237 
284,190 {EE} 
1560 DATA 1,1,1,190,1,190,1,2397 
.2894 ,239 {ID} 
1570 DATA 1,1,1,1,1,1,0 {DN} 

ENDE DES LISTINGS 
SCHNEIDER LISTING MIT CHECKSUMMEN 
v2.0 

1 {0D}3 
a; The Hero * {CF} 
En ZueZ 2 Teil 2 * {EP} 
4 '‘* Datalader * {ME} 
5 RBB {CH} 
5. {DP} 
Zee E {DM} 
1000 MEMORY &7FFF:MODE O0:LOCATE 
4,12:PRINT"LESE DATA's" {BO} 
1010 DATA 3C,3C,3C,30,3C,3C {FC} 
1020 DATA 3C,78,F0,FO,FO,FO {HA} 
10390 DATA FO,BO,78,F0,FO,FO {LD} 
1040 DATA FO,FO,BO,78,3C,3C {61} 
1050 DATA 35C,3C,3C,B0,78,78 {LO} 
10680 DATA FO,FO,FO,BO,BO,78 {HG} 
1070 DATA 78,F0,F0,F0,BO,BO {PN} 
1080 DATA 78,78,B4,3C,78,BO {FC} 
1090 DATA BO,78,78,B4,F0,70 {KP} 
1100 DATA BO,„BO,78,78,B4,FO {AG} 
1110 DATA 70,BO,B0,78,78,B4 {EK} 
1120 DATA 30,70,B0,BO0,78,78 {CO} 
11350 DATA FO,FO,FO0,BO,BO,78 {0E} 
1140 DATA 78,F0,FO,F0,BO,BO {AL} 
1150 DATA 78,38,30,30,30,30 {NJ} 
1160 DATA BO,78,F0,FO,FO,FO {GN} 
1170 DATA FO,BO,78,F0,FO,FO {C0} 
1180 DATA FO,FO0,BO,38,30,30 {01} 
1190 DATA 30,30,30,30,3C,3C {HB} 
1200 DATA 3C,3C,30,3C,3C,78 {am} 
1210 DATA FO,FO0,34,F0,F0,BO {HH} 
1220 DATA 78,F0,F0,34,FO,FO {69} 
1230 DATA BO,78,F0,F0,34,FO {PD} 
1240 DATA FO,BO,78,F0,F0,34 {DP} 
1250 DATA FO,FO0,BO,78,F0,FO {MD} 
1260 DATA 34,F0,F0,BO,78,FO. {AD} 
1270 DATA FO,34,FO0,F0,BO,78 {JC} 
1280 DATA FO,FO0,34,F0,FO,BO {HE} 
1290 DATA 78,F0,F0,34,F0,FO {MG} 
1300 DATA BO,78,F0,F0,34,FO {DE} 
1310 DATA FO,BO,78,F0,F0,34 {KN} 
1320 DATA FO,FO,BO,78,F0,FO {JB} 
1330 DATA 34,F0,F0,BO,78,FO {DB} 
1340 DATA FO,34,F0,F0,BO,78 {CI} 
1350 DATA F0,F0,34,F0,F0,BO {ACH 
1360 DATA 78,F0,F0,34,F0,FO {LM} 
1370 DATA BO,38,30,30,30,30 {LK} 
1380 DATA 30,30,3C0,3C,3C,3C {DM} 
1390 DATA 3C0,3C,3C,78,F0,FO {LC} 
1400 DATA 34,F0,F0,BO,78,FO {PL} 
1410 DATA FO0,34,F0,F0,BO,78 {IK} 
1420 DATA FO,F0,34,F0,FO,BO {EM} 
1430 DATA 78,F0,F0,34,FO0,FO {NO} 
1440 DATA BO,78,F0,F0,34,FO t6P} 
1450 DATA F0,BO,78,F0,F0,34 £31} 
1460 DATA FO,F0,B0,38,30,30 {30} 
1470 DATA 34,30,30,30,3C,3C {DMF 
1480 DATA 3C,34,30,30,38,78 t0K} 
1490 DATA FO,FO0,34,F0,F0,BO {EN} 
1500 DATA 78,F0,F0,34,FO,FO {PE}I 
1510 DATA BO,78,F0,F0,34,F0 £FN} 
1520 DATA FO,BO,78,F0,F0,34 {C6} 
15350 DATA FO,FO,BO,78,F0,FO {E0} 
1540 DATA 34,F0,F0,BO,78,F0 {CC} 
1550 DATA -FO,34,F0,F0,BO,38 {DB} 


51 


u k 


.y. 


52 


programme 


1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1850 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1850 
1870 
1880 
1890 
1700 
1910 
1920 
1930 
19740 
1950 
1960 
1970 
1980 
19909 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


30,30,30,30,30,30 
3E53C,36,3E,3C,3C 
3C,78,F0,F0,F0,FO 
F0,BO,78,F0,F0,FO 
FO,F0,B0,78,F0,B4 
3C,78,F0,B0,78,F0 
78,F0,B0,F0,B0,78 
BA,FO,FO,F0,70,BO 
78,B4,F0,30,F0,70 
BO,78,B4,B0,C3,78 
70,B0,78,B4,B0,C3 
78,70,B0,78,B4,FO 
3C,F0,70,B0,78,B4 
FO,FO,F0,70,B0,78 
F0,70,F0,BO,FO,BO 
78,F0,B0,30,70,F0 
BO0,78,F0,F0,FO,FO 
FO,BO,78,F0,F0,FO 
FO,F0,B0,38,30,30 
30,30,30,30,3C,3C 
3C,3C,30,3C,30,7B 
FO,FO,FO,FO,FO,BO 
30,30,30,30,30,30 
30,F0,F0,F0,FO,FO 
FO,FO,FO,FO,FO,FO 
FO,FO,FO,78,F0,B4 
FO,F0,78,F0,B4,FO 
F0,78,F0,B4,F0,FO 
78,F0,B4,F0,F0,78 
F0,78,F0,B4,FO,FO 
78,B4,F0,F0,78,F0 
B4,F0,78,F0,B4,FO 
F0,78,F0,FO,FO,FO 
FO,FO,FO,FO,FO,FO 
FO,FO,FO,FO,FO,SC 
3C,30,30,3C0,3C,3C 
78,F0,F0O,FO,FO,FO 
B0,30,30,30,30,30 
30,30,30,3C,3C,3C 
3C,30,3C0,78,F0,FO 
FO,FO,F0,BO,78,FO 
FO,FO,FO,F0,BO,78 
30,30,30,30,30,BO 
78,70,F0,FO0,FO,B4 
B0,78,70,30,30,30 
B4,B0,78,70,30,30 
34 ,B4,B0,78,70,30 
F0,3C,B4,B0,78,70 
30,F0,3C,B4,B0,7B 
70,30,3C,3C,B4,BO 
78,70,34,30,3C0,B4 
BO,78,70,F0,F0,FO 
B4,BO,78,34 ,30,3C 
3C,3C,B0,78,F0,FO 
FO,FO,FO0,BO,78,F0 
FO,FO,FO,FO,BO,38 
30,30,30,30,30,30 


RESTORE 1010:x=0 
FOR i=%8400 TO %84C097 


READ 
POKE 


as 
i,VAL("&"+a$) 


Rex t+VALUÜ"L"+a$) 


NEXT 


IF x<>109319 THEN CLS:PRIN 


i 


T"FEHLER in DATA’s":END 


2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2370 
24009 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


11,00,40,21,00,C0 
01,00,40,ED,BO,C? 
21,00,C0,06,03,11 
03,00,E5,CD,19,BD 
CD,20,92,E1,23,10 
F5,C9,CB,BC,7E,CB 
FC,77,CD,2D,92,19 
D8,18,F3,3E,0A,3D 
20,FD,C9,21,00,C0 
06,03,11,03,00,E5 
CD,19,BD,CD,47,92 
E1,23,10,F5,C9,AF 
77,CD,2D,72,19,DB 


{IM} 
{ED} 
{NnJ} 
<CcM} 
(313 
{PC} 
{ML} 
{04H} 
{HC} 
{BG} 
{AJ} 
{JL} 
{BJ} 
{IC} 
{AF} 
{6M} 
{CL} 
t0E} 
{BB} 
{IP} 
{FF} 
{DP} 
{IM} 
£C1} 
{HB} 
{EF} 
t0E} 
{AN} 
{JL} 
{AH} 
{13} 
{ML} 
{3A} 
{PM} 
{FI} 
{BJ} 
{KB} 
{JA} 
{MC} 
{EI} 
{LJ} 
{DM} 
{DD} 
{FB} 
{FF} 
{NB} 
{BO} 
{DB} 
{C0} 
{DJ} 
{.LN} 
{JH} 
{mK} 
<LI} 
{AE} 
t0D}> 
{CB} 
{KN} 
{GL} 
{LM} 
{HL} 
{FO} 
{KN} 
{ER} 
{AB} 
{AP} 
{NB} 
{MN} 
106} 
<AE}I 
{FK} 


{KH} 
{PA} 
{EH} 
{MA} 
{AD} 
{IB} 
{DC} 
{IK} 
{AK} 
{0D} 
{FA} 
PP} 
{FE} 
{AI} 


2410 
2420 
2430 
2440 
2450 
2480 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2570 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
27860 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2880 
2870 
2880 
2890 
29700 
2910 
2920 
2930 
2940 
2950 
2960 
29770 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
30860 
3070 
3080 
3090 
3100 
3110 
3120 
5130 
3140 
3150 
3180 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Sompute miß 


18,F7,21,00,C0,DD 
21,00,80,FD,21,00 
81,06,64,7C,DD,77 
00,7D,FD,77,00,DD 
23,FD,23,CD,26,BC 
CD,26,BC,10,EC,C9 
DD,21,00,80,FD,21 
00,81,74,32,83,92 
32,87,92,DD,7E,00 
67,FD,7E,00,6F .1& 
00,19,E5,16,10,1E 
07,0A,FE,00,28,03 
77,18,06,CB,BC,7E 
CB,FC,77,03,23,1D 
20,ED,E1,7C,C6,08 
67,E6,38,20,14,7C 
D6,40,67,7D,C6,50 
6F,30,0A,24,7C,E6 
07,20,04,7C,D6,08 
67,E5,15,20,CA,E1 
C9,38,00,91,57,3A 
01,91,5F,ED,4B,02 
91,CD,72,72,09,3A 
04,91,3D,28,05,32 
04,91,18,08,3E,02 
32,04,91,CD,B6,93 
3A,08,91,3D,28,05 
32,08,91,18,0E,3E 
03,32,08,91,CD,09 
94,34,23,91,FE,00 
C0,3A,11,91,3D,28 
05,32,11,91,18,0E 
3E,03,32,11,71,CD 
OF,94,34,23,91,FE 
00,C0,3A,1A,91,3D 
28,05,32,1A,91,18 
0E,3E,03,32,1A,71 
CD,15,94,34,23,91 
FE,00,C0,3A,07,91 
FE,00,04,F4,94,3A 
26,91,FE,00,C2,D4 
95,3A,28,91,FE,00 
28,1D,3A,27,91,3D 
20,14,3E,02,32,29 
91,DD,21,28,71,CD 
21,96,34,34,91,FE 
00,C0,18,03,32,29 
91,3A,2C,91,FE,00 
28,1D,3A,2D,971,3D 
20,14,3E,02,32,2D 
91,DD,21,2C,91,CD 
21,96, 3A,34,91,FE 
00,C0,18,03,32,2D 
91,34,30,91,FE,00 
CA,82,96,3A,31,91 
3D,20,15,3E,02,32 
31,91,DD,21,30,91 
CD,21,96,34,34,91 
FE,00,C00,03,82,7& 
32,31,91,03,82,96 
CD,24,BB,CB,44,CC 
FE,93,CB,4C,CC,F3 
93,CB,5C,CC,DD,93 
CB,54,CC,E8,93,CB 
64 ,C4,D0,94,01,00 
AO,ED,5B,05,91,CD 
72,92,C9,3A,05,91 
FE,00,C8,3D,32,05 
91,C09,3A,05,91,FE 
1E,C8,30,32,05,91 
C9,3A,06,71,FE,00 
C8,3D,32,06,91,C9 
3A,06,91,FE,50,CB 
3C,32,06,91,C9,DD 
21,08,91,18,0A,DD 
21,11,91,18,04,DD 
21,1A,91,DD,7E,01 
FE,00,28,06,3D,DD 
77,01,18,13,01,70 
A&,5F,DD,56,02,DD 
ES,CD,72,92,DD,E1 
3E,48,DD,77,01,DD 
7E,07,3D,28,05,DD 
77,07,18,14,DD,7E 
08,DD,77,07,DD,7E 
06,67 ,CB,44,CC,7C 


{JF} 
{JA} 
{FI} 
{NH} 
{0F} 
tEH} 
{6.[} 
{HA} 
{AO}? 
{CH} 
{DK} 
{DN} 
{AJ} 
{AK} 
{BO} 
{CH} 
{FI} 
{CI} 
{HB} 
{PB} 
{MI} 
{NJ} 
{BI} 
{PP} 
{EK} 
{EE} 
{GL} 
{FN} 
{NP} 
{EK} 
{DE} 
{ON} 
{JL} 
{PI} 
{MI} 
{6M} 
{LF} 
{PK} 
{DF} 
{MF} 
<AL}Y 
{BH} 
£003 


3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
35209 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 


3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 


{CP} 3700 
{CF} 3710 
{AD}| 3720 


{CM} 
{E0} 


3730 
3740 


{PL} 3750 


{AL} 


3760 


{BP}| 3770 


{BN} 
{AI} 
£1J}3 
{NP} 
{PD} 
{GE} 
tAF} 
{HD} 
{BL} 
{FA} 
{ALY 
{DN} 
{BH} 


3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 


IL} 3910 


{BM} 
{CJ} 
{16} 
{06} 
{FD} 
{BC} 
{KJ3 
{0Cc} 
{KL} 
{CC} 
{LK} 
{CJ} 
{CK} 
{DB} 
iKI} 
{PD} 
{LA} 
£DP} 
tAE} 
{HL} 
{KD} 


3920 
3930 
3940 
3950 
3960 
3970 
3980 
‚3990 
4000 
4010 
4020 
4030 
4040 
4050 
40860 
4070 
4080 
40909 
4100 
4110 
4120 


DATA 
DATA 
DATA 
DATA 


‚DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA» 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


94 ,CB,4C,CC,8E,94 
DD,7E,01,5F,DD,7E 
02,57,DD,7E,04,4F 
DD,7E,05,47,DD,ES 
CD,72,92,DD,E1,CD 
AO,94,ED,5F,E6,6F 
FE,OA,CC,D8,95,09 
DD,7E,02,FE,00,28 
05,3D,DD,77,02,C9 
3E,01,DD,77,06,C9 
DD,7E,02,FE,50,28 
05,3C,DD,77,02,C9 
3E,02,DD,77,06,69 
3A,05,971,06,07,80 
47,DD,7E,01,B8,DO 
AF,78,06,07,90,47 
79,B8,D8,3A,06,91 
06,08,80,47,DD,7E 
02,B8,D0,4F „78,06 
08,90,47,79,BB,DB 
3E,01,32,23,91,09 
3A,07,91,FE,00,C0 
3E,01,32,07,91,3A 
05,91,06,07,80,32 
24 ,91,34,06,91,06 
03,80,32,25, 91,21 
00,86,CD,AA,BC,C9 
3N,24,91,FE,4B,2B 
13,30,32,24,91,5F 
3A,25,91,57,01,A0 
84,CD,7F,95,CD,21 
95,C9,AF,32,07,91 
3A,24,91,5F,3A,25 
91,57,01,C0,84,CD 
7F ,95,C9,DD,21,08 


91,CD,53,95,FE,00 
20,06,3E,01,32,26 
91,C9,DD,21,11,91 
CD,53,95,FE,00,20 
06,3E,02,32,26, 91 
C9,DD,21,1A,91,CD 
53,95,FE,00,C0,3E 
03,32,26,71,C9,DD 
7E,01,06,07,80,47 
3A,24,91,B8,DO,4F 
78,06,07,90,47,79 
B8,D8,DD,7E,02,06 
08,80,47,3A,25,71 
B8,DO,4F,78,06,0B 
90,47 ,79,B8,D8,AF 
C9,DD,21,00,80,FD 
21,00,81,7A,32,90 
95,32,94,95,DD,7E 
00,67,FD,7E,00,6F 
16,00,19,E5,16;03 
1E,03,0A,FE,00,28 
03,77,18,06,CB,BC 
7E,CB,FC,77,03,23 
1D,20,ED,E1,7C,C6 
08,67,E6,38,20,14 
7C ,D6,40,67,7D,C6 
50,6F,30,0A,24,7C 
E6,07,20,04,7C,D6 
08,67,E5,15,20,CA 
E1,C9,CD,0E,95,C9 
DD,7E,01,06,19,98 
D8,3A,28,91,FE,00 
28,0F,3A,2C,91,FE 
00,28,0E,34,30,91 
FE,00,28,0D,C9,FD 
21,28,91,18,0A,FD 
21,2C,91,18,04,FD 
21,30,91,3E,01,FD 
77,00,3C,FD,77,01 
DD,7E,01,FD,77,02 
DD,7E,02,FD,77,03 
21,09,864,CD,AA,BE 
C9,DD,7E,02,FE,00 
28,17,3D,DD,77,02 
5SF,DD,7E,03,57,01 


A9I,84,DD,ES,CD,7F . 


95,DD,E1,CD,52,96 
C9,AF,DD,77,00,DD 
7E,02,5F,DD,7E,03 
57,01,C0,84,CD,7F 
95,09,34,05,91,06 


{PD} 
{MH} 
{GM} 
{AI} 
{AP} 
{BJ} 
{DP} 
{MH} 
{FB} 
£DH} 
{PD} 
{FP} 
{DL} 
{GF} 
{BC} 
{EN} 
<FM} 
{FE} 
{KP} 
{PD} 
{HP} 
{BC} 
{CL} 
£3F} 
{MD} 
{BA} 
{PD} 
{AB} 
{KJ} 
£JL}3 
{DF} 
{KL} 
<BH} 
{DE} 
{NO} 


{AH} 
t1E} 
{LK} 
£06} 
{AC} 
{BE} 
{CH} 
{ACH 
{LU} 
{CP} 
{AK}? 
{EP} 
{PO} 
{FA} 
{DH} 
{KC} 
{BM} 
{EB} 
{DM} 
{IP} 
{MG} 
tAG} 
{HD} 
<MJ} 
{ID} 
£ND} 
{AG} 
£C1} 
{EN} 
ON} 
{km} 
{AD} 
{DC} 
tEJ} 
{FB} 
JA} 
{CH} 
{0A} 
{NB} 
{AD} 
<IP} 
{FL} 
{HF} 
{60} 
{HF} 
£BL} 
{13} 
{DA} 
XPN} 
{CH 
<PG} 





4130 
2130 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
A240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
2460 
4470 
4480 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


07,80,47,DD,7E,02 
B8,DO,4F ,78,06,07 
90,47 ,79,B8,D8,3A 
06,91,06,08,80,47 
DD,7E,03,B8,DO,4F 
78,06,08,90,47,79 
B8,D8,3E,01,32,34 
91,09,34,35,91,47 
48,3A,36,71,47,10 
FE,41,10,F6,C3,D7 
92,44,20,22,21,41 
53,53,45,4D,42,4C 
45,2E,42,49,4E,0D 
0A,33,30,20,43,41 
4C,4C,20,26,38,46 
35,42,0D,0A,34,30 
20,44,45,40,45,54 
45,20,31,30,2D,34 
30,0D,0A,1A,1A,55 
53,41,54,5A,20,48 
49 ,45,54,55,22,2C 
31,34,34,0D,0A,22 
31,31,22,20,22,4B 
46,5A,2D,53,54,45 
55,45,52,22,20,31 
32,20,32,32,35,0D 
0N,1A,31,34,39,32 
0D,0A,22,32,00,00 


RESTORE 2280:x=0 
FOR i=&9200 TO &96FD 


READ 
POKE 


as 
i,VAL("&"+a$) 


x=xt+VAL("&"+a$) 


NEXT 


IF »<>128237 THEN CLS:PRIN 


i 


T"FEHLER in DATA’sS":END 


4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
47109 
4720 
47%0 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,CC,CC,CC 
00,00,00,00,44,4C 
00,00,00,00,00,44 
0C,88,00,00,00,00 
8C,8C,4C,88,00,00 
00,8C,4C,CC,4C,00 
00,00,44,8C,0C,8C 
ECC,00,00,40,84,0C 
84,C0,00,00,84,48 
C0,48,00,00,00,84 
84,48,80,00,00,00 
40,0C,80,00,00,00 
00,40,48,00,00,00 
00,00,60,C0,C0,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,44,CC,CC,00,00 
00,00,CC,CC,8C,88 
00,00,44,8C,0C,4C 
4C,00,00,CC,84,0C 
48,0C,88,00,40,48 
C0,84,8C,88,00,00 
84 ,0C,4C,4C,88,00 
00,8C,06,48,48,80 
00,44,4C,CC,8C,84 
80,00,CC,8C,06,4C 
0C,80,00,40,84,ÖC 
48,48,00,00,00,C0 
C0,84,80,00,00,00 
40,C0,C0,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,44,CC 
EC,CC,88,00,00,00 
84 ,0C,8C,4C,00,00 
00,40,4C,8C,CC,88 
00,00,44,0C,C4,0C 
88,00,00,8C,CC,C8 
0C,C4,00,CC,4C,0C 
4C,C0,4C,00,C0,48 
0C,48,CC,48,00,00 
84,C0,C4,0C,C8,00 





{AA} 
{EF} 
{FC} 
{FA} 
{CJ} 
tEO} 
{DL} 
{FN} 
{BO} 
{PE} 
{EA} 
{H0} 
{CH} 
{LK} 
{DM} 
{CB} 
{JB} 
{LI} 
{EE} 
{KN} 
{IL} 
{0A} 
{AF} 
{CD} 
{EJ} 
{JD} 
{0B} 
{GE} 
{PM} 
{BI} 
{LC} 
{NG} 
{KN} 
{NF} 
{6F} 


{PO} 
{KP} 
{DD} 
t0K} 
{CK} 
{11} 
{cc} 
{HH3 
{NI} 
{MH} 
{KI} 
{04} 
{MD} 
{MN} 
{LJ} 
{GH} 
{DN} 
{HJ} 
{KM} 
{HL} 
{FO} 
{KN} 
{EH} 
<DF} 
{FO} 
{0A} 
{BK} 
{BO} 
{CM} 
{PM} 
{DH} 
{BD} 
{391} 
{FI} 
{FP} 
{CB} 
{HI} 
{64} 
{MK} 
{HJ} 
{KC} 
{6GB} 
{LI} 
{DK} 
{E03 
{DI} 
{0B} 
{LA} 
{CA} 
{BM} 


4980 
4990 


5000. 


SO1O 
5020 
5030 
5040 
Ss0S50 
5050 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
53770 
5780 
5790 
5800 
5810 
5820 
5830 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Compute mib 


00,40,0C,C8,0C,80 
00,00,44,48,84,C0 
80,00,00,8C,0C,84 
48,00,00,44,C0,C0 
C0,80,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,CC 
CC,CC,00,00,00,00 
44 ,4C,00,00,00,00 
00,8C,4C,88,00,00 
44 ,CC,0C,80,4C,00 
00,8C,4C,CC,0C,4C 
00,CC,4C,8C,0C,CC 
88,00,C0,48,84,0C 
C0,80,00,00,84,48 
C0,06,48,00,00,40 
C0,0C,84,48,00,00 
00,00,84,48,80,00 
00,00,00,40,48,00 
00,00,00,00,C0,C0 


“ 
“ 
E) 


8830598333838 


399829933338 


“ 
“ 
“ 
5) 


zu 0 “ 
wm... 
PR EIEENE 
Pure) 
me. “ 


£) 
“ 


889388833383 
33838838833 
885nn3888388 
88858333833 


- 


, 
0C,4C,00,8C,CC,00 
C0,0C,48,0C,84,C0 
00,84,C0,84,C0,48 
48,00,84,4C,CC,CC 
C0,C0,00,40,48,C0 
£C0,0C,80,00,00,C0 
0C,48,C0,00,00,00 
00,C0,C0,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 


“ 
“ 
“ 


85883355833 


.u 
20 


»80,00,00,8C 
8C,00,88,00,00,00 
84 ,84,0C,04,44,00 
00,40,48,C0,0C,C9 
00,00,00,84,0C,48 
40,00,00,00,40,C0 
80,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,44,CC 
88,00,00,00,CC,8C 
CC,CC,00,00,00,44 
4C,C0,C0,88,00,00 


40,48,CC,CC,80,00 
00,C0,84,C0,C0,00 
00,00,00,40,C0,80 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,44,CC,88 
00,00,00,CC,8C,CC 


{CO} 
{IH} 
{PL} 
{IK} 
{GE} 
{FO} 
{KN} 
{EA} 
{KP} 
{1A} 
{JH} 
{MN} 
{GK} 
{LM} 
{DC} 
tAE} 
{DE} 
{LI> 
{KA} 
{HP} 
tKE} 
{OL} 
<{NF} 
{MP} 
{HJ} 
{KM} 
{HL} 
{FO} 
{LU} 
{DI} 
{NE} 
{AB} 
{AK} 
{MA} 
{EE} 
{BJ} 
<C0o} 
{6C} 
{0P} 
{KK} 
{KM} 
{MJ} 
{6F} 
{HI} 
{64} 
MK} 
{19} 
{FM} 
{KE} 
{AI} 
{AH} 
{PM} 
{MB} 
{EL} 
{LL} 
{GB} 
{EA} 
{JB} 
{FB} 
{BC} 
{MI} 
{KP} 
{DD} 
{JG} 
{G6F} 
{00} 
{PE}I 
{HA} 
{CA} 
{EH} 
{HF} 
{ND} 
{HD} 
{39} 
{HB} 
{EF} 
{CA} 
{NO} 
{Jr} 
{HL} 
{FO} 
{KN} 
{DB} 
{GE} 
{GH} 
{PB} 


5840 
5850 
5860 
5070 
5880 
5870 
5700 
5910 
59720 
5930 
59740 
5950 
5960 
5970 
5980 
5990 
6000 
6010 


‘6020 


6030 
6040 
6050 
6080 
6070 
6080 
6090 
6100 
&110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6570 
6600 
6610 
6620 
6630 
6640 
6650 
6640 
6670 
6680 
6690 


programme 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
-DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CC,00,00,00,00,C8 
0C,C0,00,00,00,CC 
0C,C0,80,00,00,CC 
0C,CC,CC,80,00,CC 
OC,CC,0C,0C,CC,00 
C0,06,C0,0C,0C,C0 
00,00,C0,0C,C0,C0 
80,00,00,00,C0,0C 
CC ,80,00,00,00,00 
C0,0C,4C,00,00,00 
C0,84,C0,C0,00,00 
00,00,40,C0,80,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
CC,CC,00,00,00,00 
CC,CC,C8,88,00,00 
44 ,4C,C0,C4,C4,00 
00,8C,0C,00,4C,84 
88,00,C0,84,0C,C8 
4C,CC,00,00,40,CC 
84 ,8C,4C,00,00,44 
C0,8C,84,48,00,CC 
8C,0C,C4,48,C0,00 
84 ,0C,0C,48,8C,80 
00,40,48,CC,C8,C0 
00,00,00,C0,C0,C0 
80,00,00,00,00,C0 
C0,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
40,80,00,00,00,00 
00,81 ,42,00,00,00 
00,40,56,42,00,00 
00,00,40,46,A9,80 
00,00,00,81,CC,03 
80,00,00,00,40,56 
42,00,00,00,00,40 
03,C0,00,00,00,00 
00,C0,00,00,00,00 


8 
338888888 


8883383338383 83 


00,00,00,81,0C,42 
00,00,00,40,06,06 
42,00,00,00,40,03 
81,80,00,00,00,00 
C0,40,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 


je} 
© 
“ 

8 
oO 
je} 
« 

© 
© 


CC,09,80,00,00,40 
06,DE,09,80,00,00 
00,81,0C,0C,42,00 
00,00,40,03,06,42 
00,00,00,40,42,81 
80,00,00,00,00,80 
40,00,00,00,00,00 


{AG} 
{EG} 
{6GB} 
{EI3 
{DC} 
{II} 
{PM} 
{0B} 
{FO} 
{FM} 
{AP} 
£J0> 
{MK} 
{HJ} 
{KM} 
{HL} 
{FO} 
{FD} 
{EB} 
{EP} 
{HC} 
{C1} 
{KD} 
{GB} 
{HK} 
t0F} 
{NC} 
{PM} 
{LI} 
{DD} 
{H0} 
{EA} 
iKP} 
{FC} 
{EB} 
{LE} 
{KM} 
£JH} 
{FL} 
{MO} 
{6K} 
{AF} 
{NP} 
{LD} 
{GE} 
{DA} 
{64} 
{MK} 
{HJ} 
{KM} 
{HL} 
{FO} 
{KN} 
{EA} 
{KP} 
{PN} 
{6B} 
{KL} 
{H0} 
{LB} 
{CO} 
{CJ9} 
{JK} 
{HH} 
{EJ} 
{DC} 
{MX} 
{HI} 
{64} 
XMK} 
{HJ} 
{KM} 
{HL} 
{HN} 
{PB} 
{BG} 
{B1} 
tAF} 
t0C} 
{LA} 
{KC} 
{11} 
{HJ} 
{MG} 
{JA} 
{ED} 





00,00,00, 
C0,00,00,00,00,40 
06,03,80,00,00,00 
00,81,09,80,00,00 
00,40,06,42,00,00 
00,00,40,46,42,00 
00,00,00,81,50,09 
80,00,00,40,06,DE 
8C,42,00,00,40,06 
CC,AC,42,00,00,81 
0C,8C,07,80,00,00 
81,06,09,09,80,00 
00,40,81,42,42,00 
00,00,00,40,80,80 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,00,00,00,00 
00,00,40,80,40,80 
00,00,00,81,42,81 
42,00,00,40,06,09 
06,09,80,00,81,4C 
8C,4C,8C,42,00,81 


{DD} |6990 DATA 4C,EC,DC,8C,42,40 1033| 7280 DATA 00,C0,C0,80,00,00 {IB} 
{JG} |7000 DATA 068,DC,7C,FC,8C,42 {JM} 7270 DATA 00,00,00,00,00,00 {LE} 
{6F}|7010 DATA 40,06,DE,3C,EC,09 {BE}| 7300 DATA 00,00,00,00,00,00 {KM} 
tHI}|7020 DATA 80,00,81,4C,FC,8C £DB}| 7310 DATA 00,00,00,00,00,00 {HL} 
{PI}|7050 DATA 09,80,40,06,DC,EC {C0}| 7320 DATA 00,00,00,00,00,00 {FO} 
{JD} |7040 DATA 09,07,80,40,03,4C {JD}| 7330 DATA 00,00,00,00,00,00 {KN} 
{J6}|7050 DATA 8C,42,03,80,00,C0 {FN}| 7340 ' {PJ} 
{IH} |7060 DATA 06,09,80,C0,00,00 {NJ}| 7350 RESTORE 4490:x=0 <C6} 
{LB} |7070 DATA 40,81,42,00,00,00 {IF} 7360 FOR i=&A000 TO RASAD {AA} 
{KK} |7080 DATA 00,00,40,80,00,00 {AP}| 7370 READ a$ £{NF} 
{IC}|7090 DATA 00,00,00,00,00,00 1663| 73580 POKE i ,VAL("&"+a$) {KO} 
{AD} |7100 DATA 00,00,00,00,C0,00 £DD}| 7390 x=x-+VAL"R"+a$) {EM} 
{MD}|7110 DATA 00,00,00,00,40,03 {HC} 7400 NEXT i {56H} 
tEK}|7120 DATA 80,00,C0,00,40,81 {06}| 7410 IF x<>86973 THEN CLS:PRINT 
{JH}|7130 DATA 0C,42,00,03,80,81 £{BC}| "FEHLER in DATA’s":END {PH} 
{NA} 7140 DATA 05,CC,09,C0,06,42 {NE} 7420 MODE 1:PRINT"DATENTRAEGER 

{PD} |7150 DATA 81,4C,FC,8C,03,0C {HJ}| mit HAUBTPROGRAMM einlegen" {KM} 
{LK}|7160 DATA 42,40,05,DC,EC,OC {F03| 7430 FRINT"TASTE DRUECKEN" {CB} 
{DK} |7170 DATA 09,80,40,06,DC,7C {HL}] 7440 CALL &BB18 {DA} 
{KN} |7180 DATA 8C,42,00,00,81,4C {JJ}] 7450 SAVE" !heromc",5,&9200,8500 {MA} 
{DB} |7190 DATA FC,8C,42,00,00,81 {PM} 7460 SAVE" !graspr",b,&8400,%2BO {DA} 
GE} |7200 DATA 4C,FC,8C,42,00,40 {16} 7470 SAVE" !sprite",b,&A000,%6B0 {GE} 
{DD |7210 DATA 06,DC,3C,EC,07,80 tAM}| 7480 PRINT=SPRINT"DAS WAR'’s":PRI 
{1G}|7220 DATA 40,06,DC,7C,8C,42 {PJ3| NT"VIEL SPASS!" {MI} 
{LN}|7230 DATA 00,81,4C,FC,EC,09 {DA3| 7490 END {AI} 
{L0}|7240 DATA 80,00,81,06,CC,8C {HH} 

(C0}|7250 DATA 42,00,00,40,81,0C {HM} ENDE DES LISTINGS 

ON? |7260 DATA 0C,42,00,00,00,40 EM} 

{KD}!7270 DATA 03,03,80,00,00,00 


{163 





Hierbei handelt es sich um ein rei- 
nes Actionspiel, das in Anleh- 
nung an das Atari-VCS-Pro- 
gramm ”Ram it” geschrieben 
wurde, jedoch gegenüber dem 
Original positiv verändert wurde. 
Dieses Spiel beweist wieder ein- 
mal, daß auch in Basic schnelle 
Programme geschrieben werden 
können. Eine genaue Spielanlei- 
tung liegt bei. 


SMASH IT hat 35 verschiedene 
Schwierigkeitsgrade, die durch 
Erhöhung des Tempos und Ver- 
kleinerung des Spielfeldes erzeugt 
werden. Die ersten sieben können 
zu‘ Beginn des Spiels angewählt 
werden, damit der erfahrene Spie- 
ler nicht zuerst die einfachen Le- 
vel durchlaufen muß. Sollte ein 
Spieler alle 35 Level bestehen, 
wird der Schwierigkeitsgrad wie- 
der auf 1 zurückgesetzt. 


Spielanleitung: 

Ein Alptraum. Sie sind gefangen 
zwischen Steinsäulen, die sich auf 
Sie zubewegen und Sie zu zer- 
quetschen drohen. Natürlich wer- 
den Sie nicht tatenlos zusehen. 
Setzen Sie sich mit Ihrer Laser- 





Smash it! 





kanone zur Wehr und drängen 
Sie die Säulen Stein für Stein zu- 
rück. Ausnahmsweise läuft die 
Zeit einmal nicht gegen Sie, son- 
dern für Sie. Wenn es Ihnen ge- 
lingt, die Säulen solange abzuweh- 
ren, bis der Zeitzähler am unteren 
Bildschirmrand abgelaufen ist, er- 
reichen Sie den nächsten, schwie- 
rigeren Level. Die Spielgeschwin- 
digkeit steigert sich pro Level von 
1 auf 7. Sollten Sie auch den 
Tempo-7-Level überstehen, wird 
die Geschwindigkeit auf 1 zu- 
rückgesetzt und das Spielfeld 
rechts und links verkleinert. Soll- 
te es dagegen einer Säule gelingen, 
bis zu L Achse, auf der Sie sich 
auf und ab bewegen können, zu 


gelangen, verlieren Sie eines Ihrer 
Leben und das Spiel wird wieder 
in den Anfangszustand des jewei- 
ligen Levels zurückgesetzt. Zu Be- 
ginn verfügen Sie über drei Er- 
satzleben; alle 5000 Punkte erhal- 
ten Sie ein Bonusleben. Die 
Ersatzleben werden in der Anzei- 
ge oben rechts dargestellt. Punkte 
erzielen Sie durch Abschießen der 
Steine. Je weiter die Steine sich da- 
bei zur Mitte befinden, desto we- 
niger Punkte sind sie wert. Nach 
erfolgreicher Beendigung eines 
Levels erhalten Sie für jeden Stein, 
der einer Säule bis zur Achse 
fehlt, Bonuspunkte. Wenn Sie 
nach Spielende einen neuen 
Highscore erreicht haben, wird 


dieser angezeigt und gespeichert. 
Sie steuern Ihre Kanone mit dem 
Joystick auf der Achse nach oben 
und unten und richten sie durch 
rechts/links bewegen des Sticks 
aus. Gefeuert wird mit dem Kopf. 
Viel Spaß! 


Das Programm ist 7 KByte lang. 
Die Farben wurden für Grün- 
und Farbmonitor passend ge- 
wählt. Vor dem Abtippen emp- 
fiehlt es sich, ”AUTO” einzuge- 
ben, da das Programm mit ”RE- 
NUM” geordnet wurde. Zum 
Spielen wird ein Joystick benö- 
tigt, es dürfte aber keine Schwie- 
rigkeit sein, das Programm für 
Tastaturbetrieb umzuschreiben. 





SCHNEIDER LISTINGS MIT CHECKSUMMEN 


v2.0 


10 REM ### AutorsRainer Kratz # 


“8 


20 DIM l1balken (20) sDIM rbalkent 


20):DIM farbe(20) 


30 ENT 1,15,25,0.5:ENT 2,10,5,5 
40 ENV 1,40,-5,1.413ENV 2,10,-1, 


=) 
50 rand=2 


&0 sc=O0:lev=1:liv=3:tim=407:52= 
O0: sg=10:bon=5000: bong=bon: statu 


s=1:hisc=5555 


70 a$(1)=CHR$ (201) +CHR$ (202) 1 a$ 
(2) =CHR$ (203) +CHR$ (204) = ac$=CHR 


214) +5TRING$ (10,145) +CHR$ (215) + 
" "+CHR$ (214) +STRING$ (7,143) +CH 


$(205) +CHR$ (206) 15t$=CHR$ (207) : R$(215) {NM} 
z$ (1) =CHR$ (208) +CHR$ (209) 226 (2) 110 LDOCATE 2,23PRINT CHR$(143)+ 
{NK} |=CHR$ (210) +CHR$ (211) 22$ (3) =CHR$ STRING$(13,32) +CHR$ (143) +" "+CH 
(220) +CHR$ (221) {PA3|R$1143) +STRING$ (10,32) +HCHRS$ (143 
{CIY|8O GOSUuB 750 {EP} )+" "+CHR$ (143) +5TRING$ (7,32) +C 
{CN} |90 MODE 12INK 0,05 INK 1,2:INK 2 HR$ (143) {IL} 
„13: INK 3,6:3WINDOW#1,3,38,6,203 120 LOCATE 2,3:PRINT CHR$ (213) + E 
{CN} |PAPER#1 ,O0:WINDOW#2,12,27,12,14: STRING$ (13,143) +CHR$(212)+" "+C 
{PM} |PAPER#2,1 £JM}| HR$ (213) +STRING$ (10,143) +CHR$ (2 
100 PAPER O:CLS:PEN 3:BORDER O0: 12)+" "+CHR$ (213) +STRING$ (7,143 
LOCATE 2,13PRINT CHR$ (214) +STRI ) +CHR$ (212) {1A} 
{MC} ING$ (13,143) +CHR$ (215) +" "+CHRS$( 150 LOCATE 2,5sPRINT CHR$ (214) + 


GSompute mib 











STRING$ (36,143) +CHR$ (215) :FOR i 
=6 TO 20:3LOCATE 2,isPRINT CHRS$( 
145) 3LOCATE 39,i1:3PRINT CHR$ (143 
)=NEXTSLOCATE 2,21:PRINT CHR$(2 
13) +STRING$ (36, 143) +CHR$ (212) 
140 LOCATE 2,233PRINT CHR$ (214) 
+STRING$ (36,143) +CHR$ (215) = LOCA 
TE 2,24:PRINT CHR$ (143) :LOCATE 
39,24: PRINT CHR$(143):LOCATE 2, 
25:PRINT CHR$ (213) +STRING$ (364,1 
43) +CHR$ (212) 

150 PEN 13LOCATE 3,2:PRINT"SCOR 
E"SLOCATE 19,23 PRINT"LEVEL":PEN 
2:5LOCATE 32,23PRINT STRING$ (1i 
V,200):3LOCATE 8,2:PRINT sc 

160 IF status THEN status=0:605 
uUB 870 

170 sst=0:5PAPER OsFOR i=6 TO 20 
slbalken(i)=1srbalken(i)=1:NEXT 
180 PEN 2:LOCATE 24,2:PRINT lev 
190 LOCATE 3,24sPEN 1:3PRINT"TIM 
E":MOVE 954,25:DRAW 606 ,25,2:MOV 
E 96,23: DRAW 606,23 

200 esä:ı f=2 

210 LOCATE rand+1,eıPEN #3PRINT 
st$3LOCATE 40-rand,e:PRINT st$ 
farbe (e)=f3ese+tlsfsftisIF f=4 
THEN f=1 5 

220 IF e<21 THEN 210 

230 a$=a$t1)sbwa-1:y=1IıPEN 2ıF 
OR i=& TO 203LOCATE 20,is PRINT. 
ac$:NEXT=SPEN 13L0OCATE 20,ysPRIN 
Tas 

240 REM 

250 tz=tz+1sIF tz=7 THEN tz=0st 
im=tim-1:PLOT tim,23,0:3PLOT tim 
»25,03 IF tim=95 THEN 580 

240 ON JOY(O)GOSUB 280,290,330, 
300,330,330,330,310,330,330, 330 
»350,330,330,330,320 

270 GOTO 360 

280 IF y=& THEN RETURN ELSE G0S 
UB 340: y=y-1:G0SUB 350: RETURN 
290 IF y=20 THEN RETURN ELSE GO 
SUB 340: y-y+1:G0OSUB 3503 RETURN 
300 bu=-1:a$=a$ (1) 1G0SUB 350:RE 
TURN N 

310 bw=il:a$s=a$ (2) sG0OSUB 350:RET 

URN 

320 IF sst THEN RETURN ELSE SOU 

ND 1,120,17,7,0,1:55t=1:sbw=bws 
sy=y:IF bw=-1 THEN sx=19 ELSE s 

»=22 

330 RETURN 

340 PEN 2:LOCATE 20,y:PRINT ac$ 
:RETURN 

350 PEN 1:L0OCATE 20,y:PRINT as: 

RETURN 

360 REM 

370 IF sst THEN LOCATE sx,sysPR 
INT" "ssx=5x+sbwsLOCATE sx,sy:sP 

EN 23PRINT"-"sIF sbw=-1 THEN 39 

0 ELSE 420 

380 GOTO 490 

390 IF sx=2+lbalken (sy)OR sx=1+ 

lbalken (sy) THEN l1balken (sy)=1ba 

lken(sy)-1iıGOSUB 850: sst=0:60T0 
450 R 

400 IF sx=rand+i1 THEN sst=0:LOC 

ATE sx,sysPRINT" " 

410 GOTO 490 : 

420 IF sx=40-rand THEN sst=0:L0 

CATE sx,sy:sPRINT" ":60T0 490 

430 IF sx=39-rbalken (sy)OR sx=3 

8-rbalken (sy) THEN rbalken (sy)=r 

balken (sy)-1:36G0SUB 840: sst=0:60 
TO 440 

440 GOTO 490 

450 sc=sc+20-85x:60T0 470 

460 sc=sc+tsx-21 

470 SOUND 1,5y#20+100,30,15,1:P 
EN 2:L0CATE 8B,2:PRINT sc 

480 IF sc>=bong THEN bong=bong+ 
bonsIF 1iv<7 THEN liv=liv+1:PEN 
2:2L0CATE 32,2:PRINT STRING$ (li 
w,200):FOR i=1 TO S:50UND 4,110 





{NC}Y 


{MG} 


{CM} 
<PE} 
{DM} 
{KM} 


{PK} 
{IN} 


{BC} 
{61} 


<16} 
{663 


{J0}> 


{DF} 


{AK} 


{EM} 


{HB} 


{FC} 
<KD} 


{BL} 
{MG} 


{FO} 


{MG} 
{GB} 


{FK} 
{AO} 


{AK} 


{EH} 
£PG} 


tED} 


{EE} 
<PF} 
kam} 
XEL} 


{BH} 


,30,15,2,23NEXT 

490 REM 

500 sz=sz+tisIF sz=sg THEN sz=0: 
60T0 520 

510 GOTO 560 

520 sty=INT {RND#13+6) ssr=INT (RN 
D#2+1):2SOUND 2,sty#20+100,10,7: 
IF sr=1 THEN 530 ELSE 550 

530 lbalken (sty)=1balken (sty) +1 
:LOCATE l1balken (sty) +rand,sty:P 

EN farbe (sty) PRINT st$: IF 1bal 
ken (sty)=17 THEN 1balken (sty)=1 

balken (sty)+1:LOCATE ibalken (st 

y)+rand,sty:PEN farbe (sty) =PRIN 
T st$:60T0 930 

540 GOTO 5650 

550 rbalkenisty)=rbalken (sty) +1 
:LOCATE 41-rbalken (sty)-rand,st 
y:PEN farbeisty)sPRINT st$:IF r 
balken(sty)=17 THEN rbalken (sty 
)=rbalken(sty)+1:sLOCATE 41-rbal 
ken (sty)-rand,sty:PEN farbe (sty 
)s2PRINT st$:ıG0TO 930 

540 REM 

570 GOTO 240 

580 IF sst THEN LOCATE sx,sy:PR 
INT" "s55t=0 

590 RESTORE 840 

&00 READ a,bsIF a=-1 THEN 620 
&10 SOUND 3,a,b,7:60T0 400 

620 mes$=STRING$ (398,32) +"# # * 
GET READY FOR NEXT LEVEL # * * 

” 


630 PAPER O:PEN 2:FOR i=1 TO LE 

N(mes$) sLOCATE 3,243PRINT MID$( 

mes$,i,36)sFOR wt=1 TO 3sNEXTSN 

EXT 

640 SOUND 1,0,50,03F0OR i=64 TO 2 

Os punkt=punkt+1 (S36-rbalken (i)—1 

balken(i))#2) ıNEXTSPEN 2:schb=sc 
:soun=750s5FOR i=1 TO INT(punkt/ 

S:LOCATE 8,2:scb=scb+5: PRINT s 

cb:SOUND 1,soun,4,5: soun=soun-4 
sNEXT=SLOCATE 8,2:sc=sc+punktsPR 
INT sczpunkt=0 

650 IF sc>=bong THEN bong=bang+ 

bon: IF 1iv<7 THEN liv=liv+1:PEN 
2:5LOCATE 32,25PRINT STRING$(1i 
v,‚200):5FOR i=1 TO 3:350UND 4,110 
,50,15,2,21NEXT 

660 FOR i=320 TO 78 STEP-2:MOVE 
(rand#15) ,isDRAW 639- (rand#15), 
i,33NEXT 

670 lev=levt+ti:sgesg-is IF sg<4 T 

HEN sg=10:G0T0O 690 

680 GOTO 710 

690 PAPER Osrand=rand+1:s IF rand 
>6& THEN rand=2: s2=0: tim=407:60T 

0 90 ELSE FOR i=5 TO 21: LOCATE 
rand-1,isPRINT" "sLOCATE 42-ran 
d,isPRINT" "sNEXT 

700 PEN S:LOCATE rand,S:ıPRINT C 
HR$ (214) 2LOCATE rand,21:3PRINT C 
HR$ (213) :=LOCATE 41-rand,53PRINT 
CHR$ (215) :3LOCATE 41-rand,2i:PR 
INT CHR$ (212) 

710 LOCATE 24,2ı1PEN 2:5PRINT lev 
720 FOR i=78 TO 320 STEP 2:MOVE 
(rand#16) ,isDRAW 439-(rand#16), 
i,O:NEXT 

730 IF sc>=bong THEN bong=bong+ 
bon: IF 1iv<7 THEN liv=liv+1:PEN 
-23L0OCATE 32,2:PRINT STRING$(1i 
v,200) 

740 s2=0:tim=6407:G60T0 170 

750 SYMBOL AFTER 199 

760 SYMBOL 200,0,16&,16,40,40,68 
‚124:5YMBOL 201,31,63,108,204,2 
04,108,63,31 

770 SYMBOL 202,254,254,12,12,12 
„12,254,254:SYMBOL 203,127,127, 
49,48,48,48,127,127 

790 SYMBOL 204,249,252,54,51,51 
‚34,252,24815YMBOL 205,1,1,1,1, 
Is1,1,1 

790 SYMBOL 206,128,128,128,128, 


{DE} 
{FP} 


tDG} 
tOL} 


{H03 


{EJ} 
{BO} 


{PC} 
{HD} 
{BI} 


{KC} 
{FC} 
{PM} 
{6K} 


{KH} 


{EF} 


{KL} 


{MB} 


{043 


{IK} 
{BG} 


{AH} 


{PM} 
£CJ3} 


{CE} 


{MN} 
{PN} 
{EE} 


{MD} 


{DA? 


{CH} 


Compute mib 


programme 


128,128,128,128:5YMBOL 207,0,25 

5,255,255,255, 255,255 i 

800 SYMBOL 208,0,0,1,7,75135YMB 

OL 209,0,0,128,224,224,128 

810 SYMBOL 210,0,3,15,63,63,15, 

S:SYMBOL 211,0,192,240,252,252, 

240,192 

820 SYMBOL 220,3,15,63,255,255, 

63,15,3:5YMBOL 221,192,240,252, 

255,255,252,240,192 

830 RETURN 

840 DATA 478,40,568,40,478,10,5 

06,10,478,10,379,40,478,40,379, 
10,478,10,379,10,319,40,638,40, 

0,2,638,10,0,2,638,10,0,2,638,1 

0,478,40,-1,0 

850 LOCATE sx „sysPRINT" "3LOCAT 

E Stlibalken (sy) ,‚sysPRINT" "s3RET 

URN 

860 LOCATE sx ,sysPRINT* ":LOCAT 

E S&-rbalken (sy) „sysPRINT" "sRE 

TURN 

870 lev=13CLS#13PEN 23LOCATE 17 
»7:PRINT"SMASH IT"sPEN 3: LOCATE 
13,9:PRINT"Last Scores "3scıLOC 

ATE 13,112 PRINT”HIGH SCORE: "shi 

scsPEN 1:L0OCATE 11,14:PRINT"Sta 

rting Levels ";sievsLOCATE 11,163 

PRINT"Press FIRE to start" 

880 LOCATE 12,193PEN 23PRINT CH 

R$(164)+" by Rainer Kratz":PEN 


1 

890 IF JOY(O)=1& THEN CLS#1:RET 
URN 

900 IF JOY(O)=1 AND lev<7 THEN 
lev=lev+1:LOCATE 26,14:PRINT le 
v 

910 IF JOY(O)=2 AND l1ev>i THEN 


v 
920 sg=i1l-levsG0T0 890 

930 GOSUB 3503 0=61 u=20: sou=605 I 
F sst THEN LOCATE sx ,sy:3PRINT" 
" 


940 FOR i=1 TO 10:SQUND 1,478,4 
7,0,0,10zSOQUND 1,300,4,6,0,0,5 
NEXT 

950 IF o<y THEN LOCATE 20,0:PRI 
NT net 

960 
NT" 
9709 
FOR 
sIF 


IF u>y THEN LOCATE 20,wPRI 
" 


sou=ssou+r30:SDUND 1,50u,7,63 
wt=1 TO 10:NEXTı0=0o+1 su=u-1 
o<y OR u?>y THEN 950 


980 PEN 23PRINT CHRS(22ICHR$ (1). 


sFOR i=1 TO 2:LOCATE 20,y: PRINT 
z$(i)sFOR wt=1 TO SO:SNEXTSNEXT 
ıPRINT EHR$(22)CHR$ (O0) SLOCATE 2 
O,y:PRINT z$(3)sFOR wt=1 TO 400 
sNEXT:FOR i=2 TO 1 STEP-1:LOCAT 
E 20,ysPRINT z$(i)sFOR wt=1 TO 
SO:NEXT:SNEXT 

990 LOCATE 20,ysPRINT" "slivel 
iv-1sIF 1iv>-1 THEN LOCATE 32,2 
:PEN 2:PRINT STRING$(11v,200) +" 


1000 FOR i=(rand#16) TO 320 STEP 
2:MOVE i,78:DRAW i „320,3: MOVE 
639-1 ,78:DRAW 639-1 „3203 NEXT 
1010 FOR i=320 TO(rand#1&) STEP- 
2:MOVE i,78:DRAW i1,320,0:MOVE & 
39-1 ,78:DRAW 639-1 „320: NEXT 
1020 IF 1iv>-1 THEN sz=0:tim=&40 
7:60T0 170 ELSE status=1: IF sc> 
hisc THEN hisc=sc 
1050 ELS#2:go$="GAME DVE 
R":PAPER 1:3PEN 2:FOR i=13 TO 28 
sLOCATE i,135PRINT MID$ (go$,i-1 
2,1):SOUND 1,0,2,5,0,0,5:50UND 
1,0,2,05FOR wt=1 TO &0:NEXT:NEX 
T:PAPER O 
1040 FOR wt=1 TO 500: NEXT:G60TO 
180 
1050 END 


ENDE DES LISTINGS 


lev=1ev-13LOCATE 26,14: PRINT le 


{BL} 
{003 


{AD}I 


{163 


{003 


{BA3 


{LB} 


{HF} 


tANF 


{NJ3 
{CO} 


{1D3 


{AH} 
{LG} 


{HAF 


{IB} 
{IN 
{DE} 


{60} 


{ACH 


{FD} 


{DN} 


{08} 


tAD}> 


{KP} 


{oa} 
{BG} 


programme 
0:89 67371175 





. ÖSCRUP: 
. OSCRDW 
. ÖKOMP: 


Der CPC 464 stellt dem Anwender ein umfangreiches Basic zur Verfügung. 


Manche Befehle kann man aber nur über chrs-Folgen.oder Call-Befehle erreichen. 


Meine Erweiterung stellt mit einfachen Befehlsnamen eine echte Programmier- 


hilfe dar. 
Die neuen Befehle lauten: 


Hinweis: OÖ = SHIFT+KLAMMERAFFE (Taste rechts neben P) 


1. ÖREV: _ Schaltet in Reverse Darstellung. Erneutes aufrufen schaltet 
x zurück in normale Darstellung 

2. OCRACK: Ermöglicht das Einladen geschützter Basic Programme, 
K Anwendung: ÖCRACK:oad""list 

3. ÖEMPTY: Löscht den Tastaturpuffer (z.B. vor INKEYS) 

4. ÖWAIT: Wartet auf Tastendruck 

5. ÖXOR: Schaltet auf XOR-Graphikmodus 

6. OAND: Schalte auf AND-Graphikmodus 

7. ÖOR: Schaltet auf OR-Graphikmodus 

8. ÖNORM: Schalter auf Normalen Graphikmodus 

9. ÖFRAME: Wartet auf Strahlenrücklauf. Dadurch werden Pixelweise 


Bewegungen flüssiger 


. ÖBILD!: 
. OBILD2: 


. ÖHOME: 


. Außerdem werden die Programme übersichtlicher. 


genau 333 Bytes. 


Scrollt Bildschirm nach oben 
Scrollt Bildschirm nach unten 
Schaltet auf speicherplatzsparenden Komprimiermodus 


Aus 
wird 


10 print 
10 print 


Setzt Bildschirmspeicheranfang ab 49152 
Setzt Bildschirmspeicheranfang ab 16384 
Bitte vorher mit MEMORY 16383 schützen 
Bringt den Textcursor in die linke obere Ecke des Bild- 
schirmes ohne diesen zu löschen. 


. ÖSCHUTZ: Das Programm wird bei EDIT oder LIST gelöscht 


Das Maschinenprogramm kann mit: 
SAVE”RSX BEFEHLE.OBJ”,822000,333,822000 gespeichert und danach mit 
MEMORY &9FFF:load”RSX BEFEHLE.OBJ’,&a000:call &a000 in eigene 


Programme geladen werden. 
Im Demoprogramm werden für Plotbeschleunigung einige Variablen mit Sin- 
und Coswerten belegt. Deshalb ist der Bildschirm, nachdem eine Taste gedrückt 
wurde, für einige Sekunden gelöscht. 


Das ganze funktioniert auch umgekehrt. 


Der Basiclader mit Demoprogramm belegt 7,32 KB, das Maschinenprogramm 


Durch ÖBILD2 kann ein Bild im Speicher abgelegt oder durch ÖBILD1 zurück 
auf den Bildschirm geholt werden, ohne es zu zerstören. 





SCHNEIDER LISTING MIT CHECKSUMMEN 


v2.0 


10 REM xuR@Ra KH EHENERHEREr 
#*#* 16 RSX Befehle xuaeneaauene 
ERERERÜRTUERERH 

20 REM zaununeeaneenaee BY ALEX 
ANDER BLOSS FROM ABC SOFT ##x%% 
EIN 

30 REM Hatte 
EEE EEE EEE 
er 22 2222 2 27 2 

40 DATA &21,&0A,&A0,&01 ,%OE,&AO 
‚&CD,&D1,&BC,%&C9 ,KOA,&AO ,LOE „&A 
O,%AC ,&AO ,&C3 

SO DATA &A1,&AO ,LCI,&AS,LAO,&CI 
„&BB,&AO,&CI3,&BE,LAO,HC3,LCO,&A 
0,%03,&CB,&AO 

60 DATA &C03,&D6,&A0,&C3,LE1,&AO 
„&C3,LEC,&AO,LCI,KFO,KAO ,LCI ,&F 
4,%&A0 ,&C03,&F8 

70 DATA &AO,&C3,%FE,LAO,&C3,%04 
„&A1,8CI,KOA,&A1,&CI5,&10,&A1,%&C 
3,%16,&A1 ,&C3 

80 DATA &1C,&A1,%03,%2F,%A1,&C3 
„LIE, &A1,%52,%&45,%D6,%43,&52,%4 
1,%43,&CB,%45 

90 DATA %4D,%50 ,&54 ,&D9,%57,%41 
‚&49,&D4,%58,&4F,%D2,%41,%4E,&C 
4,%AF ,%&D2,%4E 

100 DATA AF ,%52,&CD,%43,&55,%5 
2,&53,&4F ,&D2,&4F,%46,%C06,8465;% 
52,&41,%4D,&C5 

110 DATA &53,%43,&52,%55,&DO ,%5 
- 3,&43,%452,%&44,%&D7,&4B,&4AF,&4AD,%& 
DO,&42,%49,&AC 

120 DATA %&44,&B1,%42,%49,&4C,%4 
4,%B2,448,&4F ,&4D,&C5,853,4453,% 
48,%55,%54,%DA 

150 DATA &53,%41 ,%56,%05,&40,%4 
F,%41,&C04,&CD,&9C,&BB,&C9,%&21,% 
O1 ,&AC,&36,%C3 

140 DATA &23,%11,&B2,%A0,%&73,%2 
3,%72,%C09 ,%21,%45,&AE,%36,%00,%& 
C9,&CD,&03,%BB 

150 DATA &C7,%CD,%18,&BB,%C9,%3 
E,%17,&CD,&5A,%&BB,&SE,%01,&CD,& 
SA,&BB,&C9 ,&3E 

160 DATA &17,%CD,%5A,%BB,%3E,%O 
2,%CD,%5A,&BB,&C9 ,43IE,&17,%RCD,& 
5N,%BB,%3E,%O3 

170 DATA &CD,%5A,%BRB,LC9,,%3E,%1 
T,ECD,&SA,&BB,&IE,%00, RED, LSA, 
ER,%C9,%CD,%7B 

180 DATA %BB,&C9,%CD,&DO,&BD,&C 
97,%CD,%19,&BD,&C9 ,%06,%03,&CD,%& 


{MB} 


{GB} 


{1E} 


{BL} 


{GM} 


{FF} 


{BP} 


{FO} 


{HH} 


{KB} 


{LM} 


<LI} 


{BM} 


iKF} 


{CI} 


{10} 


{CK} 


AD,&BC,&C9,&06 

190 DATA &00,&CD,&4D,&BC,LC9I,&2 
1,%00,8AC,&36,%01,&C09,&3E,&C0,%& 
CD,&08,&BC ,&C9 

200 DATA &3E,&40,%CD,&08,%BC,&C 
F,%IE,LIE,&CD,&S5A,&BB,%C9,%21,% 
45,%RAE,%36,&01 

210 DATA &C9,83E,%00,%DD,&7E,&O 
0,%47 ,&DD,%6E ,&01,&DD,%&66,%02,% 
C9,&11,%4C,%B8 

220 DATA %&068,%10,%03,&22,%A1,%1 
A,%77,%13,%23,%10,&FA,&C9,&11,% 
07 ,%&B8,%&06,&10 

230 DATA &03,%22,&A1,%1A,&77,%1 
3,%23,&10,&FA,&C09,&00 

240 MEMORY &IFFF 

250 s=0:FOR i=&A000 TO &A14D:RE 
AD a:POKE i,ass=s+ta:NEXT 

260 PRINT: IF s<{>40582 THEN PRIN 
T"FEHLER !"sEND 

270 REM Data’s eingelesen 

280 CALL &A000 

290 MODE 1:INK 1,264: INK 3,13,26 
:INK 0,0:BORDER 7:PAPER O:PEN 1 
sCcLS 


300 REM 123456789012345578901 
2345678901234567890 

310 IREV=PRINT" 15 R 
SX BEFEHLE "331REV 
320 PRINT3> 

330 PRINT" (c) BY ABC 

= 807° 

340 PRINT" -- 1986 
350 PRINT 

360 PRINT" !REV :setzt ";:!REV 


:PRINT"revers"3 3 !REV:PRINT" Mod 
us " pr 


370 PRINT" !CRACK:einladen gesc 
huetzter Programme" 

380 PRINT" !EMPTY:leert den Tas 
taturpuffer"” 

390 PRINT" !WAIT swartet auf Ta 
stendruck" 

400 PRINT" IXDR :schaltet auf 
XOR-Graphikdarst."” 

410 PRINT" }AND :schaltet auf 
AND-Graphikdarst." 

420 PRINT" }0R :schaltet auf 
OR -Graphikdarst." 

430 PRINT" !NORM :schaltet auf 
Normale Darstellung"; 

440 PRINT" IFRAME:wartet auf St 
rahlenruecklauf"” 

A450 PRINT" !SCRUP:scrolling auf 
waerts" 


Gompute mib 


{KB} 


{6D} 


{NII 


{16} 


{KL} 


{MD} 
{DN} 


{IM} 
{IL} 
{EN} 
{MB} 
{PA} 
{JL} 


{BP} 
{NC} 


{BF} 
{10} 
{FI} 
{AL} 
{LM} 
{GK} 
{ND} 
{69} 
{NE} 
{EN} 
{EJ} 
{ACH 


{AI} 


460 PRINT" }5CRDW:scrolling abw 
aerts"” ; 
470 PRINT" }KOMP sschaltet Komp 
rimiermodus ein" 

480 PRINT": !BILDi:schaltet Bild 
schirm ab 49152 ein"; 

490 PRINT" !BILD2:schaltet Bild 
schirm ab 165384 ein"; 

500 PRINT" IHOME :bewegt Cursor 
in die obere Ecke" 

510 PRINT" }SCHUTZ:Bewirkt List 
und Editierschutz" 

520 PRINT:PEN 3: !REV:PRINT" 


> >TASTE< ea 
"321WAIT: IREV 
MODE 1 E. 
REM DEMO BILDi BILD2 
DEG 
INK 3,6 
570 DIM c (350) „d(350) 
580 FDR k=0 TO 360:c(k)=5INIk)* 
50:d(k)=COS(k)#50:NEXT 


530 
540 
550 
560 


5970 FOR k=0 TO 360 

600 ORIGIN 200,200 

&10 FLOT 0,0 

620 DRAW ck) ,d(h) ,i1 

630 PLOT 0,0 

640 ORIGIN 400,200 

650 DRAW ck) ,d(k) „3 

660 PLOT 0,0 

670 NEXT 

680 :!BILD2 

690 CLS 

700 FEN 1:PRINT"Dieses ist Bild 
2 

710 FRINT"Bildschirmspeicher ab 
16384 

720 PRINT"Bitte >TASTE<S druecke 


n !":3WAIT 

730 LOCATE 1,1 

740 :BILDI 

750 PRINT" >TASTE<": !WAIT 

760 LOCATE 1,1 

770 :BILD2 

780 :WAIT 

788 FEN 1 

790 FRINT"GENUG DEMONSTRATION J 
ETZT KOENNEN 

800 FRINT"SIE DIE BEFEHLE SELBS 
T ANWENDEN 1° j 

810 }WAIT:MODE 2:LIST 


ENDE DES LISTINGS 


{CD} 
{0A} 
{PC} 
iLJ} 
{PH} 


{MG} 


{KB} 
{AE} 
{AI} 
{FE} 
{HE} 
{HI} 


{06} 
{KkF} 
{PI} 
£BN} 
166} 
{AP} 
{PG} 
{LA} 
{AD} 
£OL} 
{JF} 
{GB} 


{ID} 
{CN} 


HH} 
{PO} 
tKH> 
{AG} 
{PP} 
{LP} 
{HN} 
{HI} 


{JP} 


<LE} 
{GM} 
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Dieses Programm beinhaltet viele 
Vorzüge von anderen Programmen 
dieser Art und noch einige sehr inter- 
essante Extras, so z.B. das Formatieren 
von einzelnen Tracks, das Kopieren 
oeder Austauschen von einzelnen Sek- 
toren, das Setzen von Attributen 
(R/O, R/W, $D, $$) und das Wieder- 
herstellen von gelöschten Program- 
men sowie das Wählen eines beliebi- 
gen Users (0-255). Das Programm 
wurde absichtlich in BASIC geschrie- 
ben, um es jederzeit an spezielle Auf- 
gaben anzupassen oder es beliebig zu 
erweitern. 


Als erstes wird Listing 1 abgetippt und 
unter ”DSLADER” gespeichert. Li- 
sting 2 wird unter "DISCSTAR” gesi- 
chert. Zum Starten wird RUN ”DS- 
LADER” eingegeben. Die REM- 
Zeilen müssen nicht mit abgetippt 
werden. 


Zuerst erscheint eine Informationszei- 
le mit dem Inhalt 

Discstar 2.1 Format: DATA ONLY 
von Drive a auf Drive a 

Auf der mittleren Anzeige befindet 
sich das gerade verwendete Disketten- 
Format. Die rechte Hälfte zeigt Ihnen, 
in welchem Laufwerk sich die Quell- 
und Zieldisketten befinden (besonders 
wichtig bei COPY, FORMAT, CAT 
und EX; bei den Befehlen UN- 
VEIL,CAT und DIR wird das Quell- 
Laufwerk angesprochen). Nun zu der 
Befehlseingabe. Es werden die Befehle 
ohne Komma zwischen Befehl und 
Wert(-en) eingegeben. Manche Befehle 
können nicht im IBM-Format arbei- 
ten, da die dafür benötigte Erfahrung 
fehlt. (Wer arbeitet schon im IBM- 
Format?). 


Syntax der Befehle: 
FORMAT vt-bt<,n> 


Formatiert im Format der Disc im 
Quelllaufwerk die Diskette im Ziel- 
laufwerk von Trach vt bis Track bt. (n 
ist ein formatierter Track der einzule- 
genden Disc, d.h. es werden die benö- 
ügten Werte von Track n gelesen.) 


Anm.: Hiermit lassen sich auch die 
Spuren 40-41 formatieren und 
man hat theoretisch 9k mehr 
Speicher. Aber man braucht 
ein paar Pokes, damit das Be- 
triebssystem diese nutzen 
kann.(s.u.) Die CP/M Routine 
formatiert nur von Track 0-39. 


Beispiel: Format 0-41 formatiert eine 
Disc einschl. Track 40 & 41. 


COPY wt-bt, vs-bs<,m> 


Kopiert von Track vt bis Trach bt und 

von Sector vs bis Sector bs. Mit diesem 

Befehl können Sie mit unterschiedli- 

chem Format arbeiten, d.h. die Quell- 

Disc kann ein anderes Format haben 

als die Ziel-Disc. Mit diesem Befehl 

kann man ohne Probleme zwischen 
zwei Formaten überspielen. Er be- 
rücksichtigt, daß im DATA ONLY 

Format auf dem ersten Track das Di- 

rectory steht und im CP/M - VEN- 

DOR auf dem Dritten. Da dies aller- 

dings zu Komplikationen führen 

könnte, kann man m auf 1 seten, dann 
wird diese Regulierung unterlassen 

(z.B. wenn man ganze DATA- auf 

VENDOR/CP/M-Discs bzw. umge- 

kehrt oder einzelne gezielte Teile ko- 

piert). Auch läßt sich CP/M nachträg- 
lich auf VENDOR - formatierte Dis- 
ketten hinzukopieren. Falls die 

Tracks 0 und 1 nicht beschreibbar 

sind, lassen diese sich durch ”FOR- 

MAT” nachträglich formatieren. Die 

beiden Discs können entweder mit ei- 

nem oder mit zwei Laufwerken ko- 
piert werden. 

Beispiel: COPY 0-39,1-9 kopiert eine 
mit CP/M-Routine forma- 
tierte Disc komplett. 
COPY 0-1,1-9 kopiert von 
einer CP/M Disc die Sy- 
stemspuren auf eine 
VENDOR-Disc. 


UNVEIL’<u2:>n.2’,u<S;h<,g>> 


Setzt alle Files mit Name n.z., die vor 
diesem Befehl auf User u2 liegen, auf 
den neuen User u (somit kann man 
auch geschützte Programme löschen, 
wenn u=229), wenn weitere Parame- 
ter angegeben auf Hide (h=1) oder 
UnHide (h=0) und wenn angegeben 
auf geschützt (g=1) oder ungeschützt 
(g=0). Hiermit kann man Files lö- 
schen bzw. gelöschte wieder herstellen 
oder auf einen beliebigen User brin- 
gen (0 - 255!). Wildcards gibt es nicht. 
Alle ”*” oder ”?” werden einfach weg- 
gelassen (”*.*” = ”.” 
Beispiel: UNVEIL ”229:.BIN” setzt 
alle gelöschten Binar-Files 
auf User 0, ungeschützt und 
unhide (gelöschte Program- 
me ohne Disc-Monitor 
’retten’!). 


BL bl 

Rechnet bl in Track und Sector der 
eingelegten Disc um (formatabhängig, 
da CP/M und DATA unterschiedli- 
che Ergebnisse erzielen). Mit diesem 
Befehl kann man den Track und Sek- 
tor ausrechnen, auf dem sich ein File 
befindet. Gut geeignet, falls man mit 
einem Disc-Monitor das File untersu- 
chen will. 


Beispiel: BL 10 errechnet den track 
und Sektor von Block 10 der 
eingelegten Disc. 


CAT <u> 


Es wird der CATalog auf User u auf- 
gelistet. u kann zwischen O und 255 
liegen. Auf User 229 / hex &ES5 liegen 
alle gelöschten Files. 


Beispiel: CAT 229 zeigt alle gelösch- 
ten Files, welche noch nicht 
im Directory überschrieben 
sind. 


DIR 


Lister das komplette DIRectory mit 
allen Files (auch gelöschte), zeigt deren 
zustand (z.B. geschützt) und gibt In- 
formationen über länge, Startadresse 
und belegte Blocks aus. hierbei sei an- 
zumerken, daß es sich bei der Bezeich- 
nung ”TEIL x” um den Eintrag han- 
delt. Ist ein File nämlich länger als 
16k, dann wird es auf mehrere Einträ- 
ge im Directory mit je 16 k verteilt. 
Bei ASC,COM und gelöschten Files, 
sowie bei Einträgen über 1 wird die 
untere Zeile mit Startadresse, Runa- 
dresse usw. weggelassen, da die Anga- 
ben dann nicht mehr stimmen. Falls 
man dennoch die untere Zeile bei ge- 
löschten Files haben möchte, muß 
man einfach mit "UNVEIL” diese auf 
einen anderen User bringen. Nach ei- 
ner vollen Bildschirmseite wird auf ei- 
nen Tastendruck gewartet. Drückt 
man eine andere Taste als SPACE, so 
wird zum Eingabemodus zurückge- 
sprungen, ansonsten wird das Directo- 
ry weiter gezeigt. 


CLS 
Löscht den Bildschirm. 
EX vt-bt,vs-bs 


Vertauscht auf einer Disc vom track 
vt und bt die Sektoren vs-bs (wenn das 
Quell- und Ziellaufwerk nicht das glei- 
che ist, auch Austausch zwischen zwei 
Disketten möglich!). 


Beispiel: EX 0-41,1-4 vertauscht Sek- 
tor 1 bis 4 der Tracks O und 
41. 


DR vd$-ad$ 
Setzt Quell- und Ziellaufwerk fest. 


vd$ und ad$ können nur ”A” oder 
”B” sein. 


Beispiel: DR A-B setzt das Quell- 
Laufwerk Drive A und als 
Ziel-Laufwerk Drive B fest. 


”<>” der in Klammern stehende 

ausdruck kann "wahlweise 

eingegeben werden (die 

Klammern werden wegge- 

lassen!). 

n ist Name, z ist Zusatz (z.B. 

n= DISCSTAR, Z=BAS) 

vt,bt können Werte zwischen O und 
41 annehmen; 

vs,bs können Werte zwischen 1 und 9 
annehmen; 

bl kann Werte zwischen 1 und 189 
annehmen; 


hg stellen entweder O oder 1 dar 
u.u2 Usernummer 0-255 


n,z 


Der Aufbau des Programms: 


Zeile 
10-40 


Bedeutung 


Initialisierung 
Eingabeschleife 
Befehl: CAT 
Befehl: FORMAT 
Befehl: COPY 
Befehl: UNVEIL 
940-950 Befehl: CLS 
970-1210 Befehl: EX 
1230-1280 Befehl: BL 
1300-1340 Befehl: DR 
1360-1720 Befehl: DIR 
1740-1880 SUBroutine von DIR für 


50-150 
170 
190-370 
390-660 
680-920 


Fileinformationen 
1900-1910 SUBroutine zum Format- 
feststellen 
1930-2010 SUBroutine für Kopfzeile 
20220 ERROR- und 
BREAK-Aussprungzeile 
Nachtrag: 


Das Programm wurde auf einem CPC 
664 erstellt. Normalerweise dürfte es 
beim 464/6128 keine Schwierigkeiten 
eben, außer bei ’DEC$(’. Dieser Be- 
Ehl muß beim CPC 464 wegen einem 
Systemfehler ’DEC$((' lauten. 


Die Variablenliste: 
a$,b$ enthält Eingabe (b$ in Klein- 


buchstaben) 
aadr Anfangsadresse 
bl Block 


bl$,bl1$,b12$ enthalten Tracks 
bs bis Sektor 

bt bis Track 

bu Buffer 

dirf Anzahl der DIR-Sectoren 
dirs Directory Sektor 

dirt Directory Track 

dr von Laufwerk 

dr2 auf Laufwerk 
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fb Formatbuffer 

fdt formatierter Disc-Track 
fo Format der Disc 

fo2 (wie fo) 

fz speichert Stringposition 
h Zähler für COPY’ 

hd Flag für versteckt 


hs Hilfsvariable 

hv Hilfsvariable 

hw Hilfsvariable 

ii2 Position eines Zeichens im 
String 

j Zählvariable 

kz Zähler 

laenge Länge des Files 

ladr Ladeadresse 


m . Flag für Trackversatz ein/aus 
n$ Name 


ot Nummer des Eintrags im Di- 
rectory 


ot$ (wie ot) 
pruefs Prüfsumme v. Filekopf und 
Flag für ASCHI-File 

pz Hilfsvariable 

radr RUNadresse 

rw Flag für schreibgeschützt 

sec augenbl. Sektor 

t augenbl. Track 

t$,t1$,12$ Namen des/der Files bei 
’UNVEIL’ 

top alter Himem 

v vertikale Cursorposition 

vs von Sektor 

vt von Track 

z Zählervariable 

zb Zwischenbuffer 


Die oben beim Befehl FORMAT an- 
gesprochenen Pokes, welche den Disc- 
speicher um Sk erhöht, sind folgende: 


POKE fl1*24,255 
um das Login anzuschalten und 


POKE 
fl1+Laufw,PEEK(fl1*256 + Laufw.) 
+9 


um die Kapazität um 9 zu erhöhen, 


wobei LAUFW sich aus Drivenum- 
mer (A=0/B=1)*64 +5 zusammen- 
setzt. fl1 ist 
PEEK(&BE42)+PEEK(&BE43)*256. 


Zu beachten ist, daß vor Eingabe die- 
ser Pokes einmal CAT oder DIR ge- 
macht werden muß, um sonstige Wer- 
te an die Diskette anzupassen. Außer- 
dem muß man, wenn man das 
Discformat wechselt oder Disketten, 
die NICHT auf TRack 40/41 forma- 
tiert sind, das Login einschalten mit 


POKE fl1+24,0 


SCHNEIDER LISTING MI T CHECKSUMMEN 


140 DATA 53,45,43,C0C,53,45,43,D 








v2.0 3 {GH} 
150 DATA 53,49,44,00,44,46,45,4 
10 RRRBRRBHRIHIHIHIHIHI IH HH HE NEN 8 {EB} 
KERRRRRe {CC} 150 DATA 4C,45,D2,46,4F ,52,4D,4 
11 ‘* 1 {Kc} 
* {HD}| 170 DATA D4,50,4F,D3,00,00,00,0 
12 '* DiscStar 2.1 [9 {FL} 
* t0M}| 180 DATA 00,FE,01,C00,21,72,CA,2 
134 2 <1B> 
* {03} 190 DATA AO,A5,DD,7E,00,DF,AO,A 
14 '* Geschrieben im Sept. 86 5 tAP} 
von # e {DH}| 200 DATA C9,FE,04,00,21,66,C06,2 
15. °'# Peter Woelflick 2 {AJ} 
* {MH3| 210 DATA AO0,AS,DD,66,03,DD,6E,0 
16 '* Bertolt-Brecht-St 2 {FB} 
r80 + {CF3| 220 DATA DD,56,04,DD,4E,06,06,0 
17 °* 8500 Nuernberg 50 o <MB} 
* {18} 230 DATA 1E,00,DD,7E,00,FE,01,2 
18 '* 0911 / B1 80 1 o ca} 
* {DA3| 240 DATA 01,1C,DF,A0,A5,C9,FE,O 
19° 4 {FI} 
* {GL} 250 DATA C0,3E,07,32,A2,A5,21,4 
20 RR ICH E <LI> 
Pe {CD}| 260 DATA C6,22,A0,A5,18,D4,FE,O 
30 MEMORY &AS9IF {EN} 1 {0A} 
40 FOR adr=&ASAO TO &A6S0O:READ 270 DATA CO,21,5D,C5,22,A0,AS,D 
as: a=VAL("&"+a$) sPOKE adr ‚a:ps= D {1A} 
ps+ta:NEXT tDJ}| 280 DATA 5E,00,18,DE,FE,04,C0,2 
50 IF ps<>2070& THEN PRINT"Fehl 1 {KO} 
er":STOP ELSE CALL &ASAO=RUN"di 290 DATA 52,06,22,A0,A5,C3,FA,A 
scstar" {13} 5 {NI} 
100 DATA 00,00,07,01,AC,A5,21,D 300 DATA FE,02,C0,21,63,07,22,A 
D {NP} Oo {BJ} 
110 DATA A5,C3,D1,BC,C0,A5,C3,F 310 DATA A5,DD,5E,00,DD,56,02,1 
1 {na>|8 ZAN} 
120 DATA AS,C3,16,46,03,26,A5,C 320 DATA Ci {C9}3 
3 {BJ} 
130 DATA E1,A5,03,34,A6,03,40,A ENDE DES LISTINGS 
& 
250 fb=%337A: !POS,fdt,dr <AP} 
260 FOR t=1 TO 20 {LP} 
270 }SIDL,dr=zFOR hu=0 TO 3:POKE 
fb+hw,PEEK (&BE4F-+hw) 3NEXT {00} 
SCHNEIDER LISTING MIT CHECKSUMMEN” | 280 fb=fb+4:NEXT: Fb=&337A {GN} 
. 290 IF PEEK(fb+2)=1+fo THEN 310 
ELSE fb=fb+4 {LO} 
10 DON ERROR GDTO 2020:MDDE 2:DE 300 IF fb<&3I7A+&28 THEN 290 EL. 
FINT a,c-z:top!'=HIMEM {KJ} SE PRINT"Fehler":G0T0 40 {EA}? 
20 MEMORY &3379:DIM b1(16) 3 INK 310 PRINT"Die zu formatierende 
0,93 INK_1,25:BORDER 9 {AA}| Disc einlegen":CALL &BBO& <113 
30 bu=&339F: fb=&337Arzb=bu+&A00 XND3| 359 FOR t=vt TO bt KG} 
40 GDSUB 1900:0N BREAK GOSUB 20 330 FOR j=0 TO 8:POKE fb+4rj,t: 
20 <ADI| NEXT <I6} 
50 LINE INPUT">" „a$:b$=LOWER$ (a 340 LOCATE 1,24:PRINT"Formattin 
$):z=0 {IM} 4 Track"+STRSIt)5 {01} 
60 IF LEFT$(b$,S)="cat"THEN 170 {PA}| 350 HFORMAT,Fo+lst,Fb,dr2 {CB} 
70 IF LEFT$(b$,6)="format"THEN 360 NEXT: !SECL,1+f0,0,bu,0 {FP} 
190 {NB}| 370 GOTO 40 tDL} 
80 IF LEFT$(b$,4)="copy"THEN 39 380 ‘=## COPY {DD} 
0 {KN}| 390 GOSUB 1900:FOR hw=6 TO LENt 
90 IF LEFT$(b$,6)="unveil"THEN a$) {JH} 
680 tAB}| 400 IF MID$(a$,hw,1)<>","THEN 4 
100 IF LEFT$(b$,3)="cIs"THEN 94 20 {HN} 
° t{IN}| 410 z=z+1l:fz (z)=hw {AH} 
110 IF LEFT$(b$,2)="ex"THEN 970 {II}| 420 NEXTsIF z=0 THEN 150 {FF} 
120 IF LEFT$(b$,2)="b1"THEN 123 430 IF z=1 THEN fz (Z2)=LEN(a$) {PJ} 
° tON}| 440 IF z=2 THEN m=VAL(MID$ (a$,f 
130 IF LEFT$(b$,2)="dr"THEN 130 z(2)+1)) {D1} 
o {LI}| 450 i=INSTR(a$,"-")zIF i=0 THEN 
140 IF LEFT$(b$,3)="dir"THEN 13 150 {IK} 
60 {NL3| 440 vt=VAL(MID$S(a$,6)) t0P} 
150 IF b$=""THEN 50 ELSE PRINT" 470 bt=VAL(MID$ (a$,it1,fz(1)-i) 
?"5b$:60TO 50 {KD}| ) {JE} 
160 '*** CAT {DH}| 480 i2=INSTR(#z (1)+1,a$,"-") {BO} 
170 POKE &A701 ,VAL(MID$(a$,4))M 490 IF i2=0 THEN 150 {DI} 
OD 256:CAT:60T0 50 {DA}| 500 vs=VAL(MIDSta$,fz(1)+1)) {1A 
180 "##* FORMAT tEH}| 510 bs=VAL(MID$ (a$,i2+1)) {NE} 
190 i=INSTR(B,a$,"-")sIF i=0 TH 520 f=fz (2)+1:f02=fo: !DFEHLER,O {CC} 
EN 150 tBI3| 5390 FOR t=vt TO bt:LOCATE 1,25: 
200 vt=VAL(MID$ta$,8)) {CF}| PRINT"Orginal einlegen"; 003 
210 bt=VAL(MID$(a$,i+1)) {EA} 540 CALL .&BBOSsh=5S:WHILE t+h>bt 
220 PRINT"Eine formatierte Disc sh=h-1:WEND {FM} 
einlegen":CALL &%BBO06&:60SUB 190 550 bu=&339E:FOR ht=t TO t+h:LO 
° {FG} CATE 1,24:PRINT"Read Track "+ST 
230 i=INSTR(B,a$,",")sIF i=0O TH "| RS(hE)"  ":FOR s=vs TOD bs {JB} 
EN fdt=0:60T0 250 {GL} 560 !SECL,s+fo2,ht ,bu,dr:bu=sbu+ 
240 fdt=VAL(MID$(a$,i+1))MODD 41 {CH} %200- tJc} 
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570 NEXT=:NEXT 

580 FRINT"Kopie einlegen "3:CA 

LL &BBO&: IF t=vt THEN GOSUB 190 

o 

590 IF m THEN hw=0:60T0 630 

&00 IF fo=&40 AND fo2=%C0O THEN 

hw=-2 

810 IF fo2=%40 AND fFo=%&CO THEN 

hw=2 

620 IF fo2=fo THEN hw=O 

630 bu=&3S39E:FOR ht=t TO t+h:LO 

CATE 1,24:PRINT"Write Track"+ST 

R&ttht-hw))" "FOR s=vs TO bs 

640 !5ECS,s+fo,ht-hw,bu,dr2:bu= 

bu+&200 

650 NEXT=NEXT=:t=ht-1:2NEXT 

660 GOTO 30 

670 '### UNVEIL 

680 i=INSTR (6,a$,CHR$(34))z2 IF i 

=0 THEN 150 ELSE i=i+i 

690 i2=INSTR (i „a$,CHR$(34))zIF 
i2=0 THEN 150 

700 i3=INSTR(i,a%,":2")=IF i3>0 
THEN user2=VAL(MID$(a$,i))si=i3 

+1 n 

710 t$=UPPER$ (MID$ (a$,i,i12-i)): 
i=INSTR(t$,".")zkz=0:IF i THEN 
720 ELSE 730 

720 t2$=MID$(t$,i+1,3) 2t1$=LEFT 
$(t$,i-1):60T0 740 

730 ti1$=LEFT$tt$,8) st2$="" 

740 GOSUB 1900: IF fo=%40 THEN d 
irt=2 

750 FOR dirs=fo+1 TO fo+4: }SECL 
‚dirs,dirt,bu,dr 

760 kz=0:FOR huw=i2+1 TO LEN(a$) 
770 IF MID$(a$,hw,1)=","THEN kz 
=kz+1:k(kz)=hw+1 

780 NEXTzuser=VAL (MID$ (a$,i12+2) 
J)erw=0:hd=0 

790 IF kz>1 THEN IF MID$(a$,k(2 
I, 1)="1"THEN rw=i 

800 IF kz>2 THEN IF MID$t(a$,k(3 
),1)="1"THEN hd=i 

810 FOR hw=bu TO bu+511 STEP &2 
o 

820 FOR hv=hw+i TO hu+lien$s=n$s+ 
CHR$& (FEEK (hv) AND 127): NEXT 

850 IF n$="eeeeeeeeeee"THEN 920 
840 IF NOT(LEFT$(n$,LEN(t1$))=t 
1#AND MID$(n$,9,LEN(t2$) )=t2$) T 
HEN 920 

850 IF PEEK(hw)<>user2 AND i3>0 
THEN 920 

860 POKE hw,usersIF hd=1 TIEN P 
OKE hw+10,PEEK(hw+10)0OR 128 

870 IF hd=O THEN POKE hw+10,PEE 
Ethw+1O)AND 127 

880 IF rw=1 THEN FOR hv=hw+i1 TO 
hw+9:POKE hv,PEEK(hv)OR 128:NE 
xT 

890 IF rw=0 THEN FOR hv=hu+i TO 
hw+9:POKE hv,PEEK(hv)AND 127:N 

EXT 

900 IF rw=1 THEN POKE hw+l1,PEE 
Kthw+11)OR 128 

910 IF rw=0 THEN PÜKE hw+11,PEE 
Kihw+11)AND 127 

920 n$=""zNEXT: ISECS,dirs,dirt, 

bu,dr:NEXT:GOTO 40 

930 '###* CLS 

340 GOSUR 1930 

950 GOTO 50 

960 '### EX 

970 GOSUB '1900:FOR hu=3 TOD LEN 

as) 

980 

000 

FO z=z+ti:fz (z)=hw 

1000 NEXT:SIF z=0 THEN 150 

1010 IF z=1 THEN fz (2)=LEN(a$) 
1020 i=INSTR(a$,"-")sIF i=O THE 


IF MID$(a$,hw,1)<>","THEN 1 


"N 150 


1030 vt=VAL (MID$(a$,3)) 


1040 POKE &9100,FEEK(&7106) zPOK 
E &F101,PEEK(RF10S) 

1050 1 2=INSTR (fz (1)+1,a$,"-") 
1060 IF i2=0 THEN 150 
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{EP} 
{0D} 
{PL} 
{PO} 
{CU} 
{FL} 
{AC} 
{CE} 
{EO} 
{CA} 
{AH} 
{MK} 


{11} 
{PH} 


{H0} 


£{LF} 
{GB} 


{JM} 


{KF} 
{MB} 


{NH} 
{CH} 
{AH} 
{PK} 
TEA} 
{093 
{HK} 
{LN} 
{HC} 
{EI} 


{KC} 
{0B} 


{IM} 
{HC} 
{KI} 


{FG} 
{BI} 
{MA} 
{EC} 
{FH} 


{NC} 
{0C} 
{NI? 
{LE} 
{PB} 


{KP} 


1070 vws=VAL (MIDStas,fFzt1)+1)) 
1080 bhs=VAL (MID$(a$,i2+1)) 

1090 f=fz(2)+1 

1100 bu=&339E 

1110 LOCATE 1,24:PRINT"Read Tra 
ck"+STR$(vt):FOR s=vs TO bs 
1120 }SECL,st+fo,vt,bu,drsbu=bu+ 
&200 

1130 NEXT 

1140 LOCATE 1,24:FRINT"Read Tra 
ck"+STR$(bt)sFOR s=vs TO bs 
1150 !SECL,s+fo,vt ,bu,dr2:bu=bu 
+&200 . 

1160 NEXT 

1170 bu=&339E:SLOCATE 1,24:PRINT 
"Save Track"+STR$(bt):FOR s=vs 
TO bs 

1180 ISECS,s+fo,bt ,bu,dr:bu=sbu+ 
&200 

1190 NEXT=:LOCATE 1,24:PRINT"Sav 
e Track"+STR$(vt)=FOR s=vs TO b 
s 


1200 }SECS,s+tfo,vt ,bu,dr2:bu=bu 

+&200 

1210 NEXT:GOTDO 40- 

1220 '#x# BL 

1230 b1=VAL (MID$(a$,3))s IF b1<O 
OR b1>189 THEN 40 ELSE bl=bl#2 
—f 

1240 IF fo=&40 THEN sec=(bl MOD 
N+iletr=(b1\N+2 

1250 IF fo=&C0 THEN sec=(b1l MOD 
PM+lstr=b1\9 

1250 IF fo<>&CO AND fo<>%40 THE 
N PRINT"Disc Format Error":60T0 
40 

1270 PRINT"Sektor s"+5TR$ (sec) ıP 
RINT" Track: "+STR$(tr) 

1280 CALL %BBO04:60T0 50 

1290 '#** DR 

15300 i=1NSTR(3,a$,"-")zIF i=sO T 
HEN 150 

1310 dr2=(ASC (MID$(a$,i+1))-65) 
MOD 2 

1320 dr=(ASC (MID$(a$,4))-645)MOD 
2 

1330 G0OSUB 1930 

1340 GOTO 50 

1350 '#** DIR 

1360 dirt=0:dirs=0:dirf=0:z=0:n 
$=""sbl=0O:user=0:0t=0: 25$="":]la 
enge=0:bl$="" 

1370 GDSUB 1900: bu=&I39E 

1380 MODE Z:dirs=fosIF fo=&40 T 
HEN dirt=2 

1390 IF fo=&CO THEN dirt=O 

1400 IF fo=0 THEN PRINT"Leider 
nicht lesbar":60T0 40 

1410 FOR dirf=0 TO 3:dirs=dirs+ 
1 
1420 
1430 
20 
1440 
1450 
11 
1450 
) 
1470 NEXT:n$=LEFT$ (n$,8)+"."+MI 
D$(n$,9) 

1480 FOR hvshw+&10 TO hw+&iF 
1490 bl=PEEK(hv)sIF b1>0 THEN z 
=z+1:bl(z)=bi 

1500 NEXT:FOR hv=1 TO z:bl$=bl$ 
+" "4+HEX$ (bl (hv) „2I=:NEXT 

1510 b11$=LEFT$(b1$,24) :b12$=MI 
D$(b1$,25) 

1520 user=PEEK {hw) s laenge=PEEK( 
15+nw) 

1530 ot=PEEK (12+hw) sot$="TEIL"+ 
STR$ (ot+1) 

1540 v=VPOS(#0):FOR hv=1 TO 12: 
IF ASC(MID$(n$,hv,i))<32 THEN 1 


ISECL ,dirs,dirt ‚„bu,drshs=0 
FOR hw=bu TO bu+S511 STEP & 


GOTO 1740 
hs=hs+1:FOR hv=hw+1' TO hu+ 


n$=n$+CHR$ (PEEK(hv) AND 127 


tIC} ago 


{CF} 
iLA3 
{KA} 


1550 NEXT 
1560 LOCATE 1,v:PRINT CHR$(133) 
+n$+CHR$ (138); En$="t 


GCompute mib 


{ED} 
{PC} 
{PG} 
{CN} 
{PH} 


{IN} 
{BH}> 


{IM} 
{BD} 
{BC} 
{IK} 


{LM} 


{033 
{MC} 
{NP} 
{AN} 
tKE} 
{KC} 
{BG} 


{NO} 
{NL} 
{LP} 
{PA} 
{BC} 
{GP} 
{04} 
t0c} 


{PN} 
{GK} 


{Ic} 
{DG} 


{6K} 
{KI} 


{KC} 


{MI} 
{PI} 


{AF} 
{0M} 


{CC} 
{KF} 


{C6} 
{LB} 


{KB} 
{BK} 
{AD} 
{LL} 
{DH} 
{BD} 
{BN} 


{6D} 


programme 


1570 LOCATE 1,v+1:PRINT STRING$ 
(14 ,CHR$(131))5 

1580 LOCATE 18,v:PRINT ot$;z 
1590 LOCATE 28,v:PRINT zs$3 
1600 LOCATE 38,v:PRINT"USER "HE 
X$tuser ,„2)3; 
1610 LOCATE 
blis 

1620 v=VPOS (#0) 

16830 LOCATE 56,v:PRINT b12$:v=v 
+1: IF ot<>0 -OR user=229 OR prue 

fs!>O THEN PRINT:GOTO 1680 

1640 LOCATE 2,v:PRINT"Anfadr."D 

EC$ (aadr ! „"#H4HR") 5; 

1650 LOCATE 18,v:PRINT"RUNadr. 

"DEC$ (radr ! „"#4#898") 5 

1660 LOCATE 35,v:PRINT"Records 

"HEX$ (laenge,2);5 

16870 LOCATE 49,v:PRINT"Laenge " 

;DEC$(ladr ! ,"#RnnR#")" Byte / 
"DEC$(INT((1adr !+128) /1024)+1, 
"##")" kByte" 

1580 PRINT" "STRING$ (78,"-")sIF 
VPOS (#0) >21 THEN LOCATE 36,25: 

PRINT"<TASTE>"3 2WHILE n$=""in$= 
INKEY$:WEND: IF n$<>" "THEN 40 E 

LSE CLS 

1690 z=0:nt="":bl=0:user=0:0t=0 
ız5$=""slaenge=0:bl$="":NEXT 
1700 IF hs=0 THEN dirf=4 

1710 NEXT 

1720 LOCATE 36,25:PRINT"<TASTE> 
“ssCALL &BBOs:CLS:60TO 40 

1730 ‘Sub -Dir- 

1740 IF PEEK(hw+9) >127 THEN zs$ 

="R/O "ELSE zs$="R/W " 

1750 IF PEEK(hw+10) >127 THEN zs 

$=zs$+"$5S"ELSE zs$=25$+"$D" 
1760 IF PEEK(hw+16)=2297 THEN 18 

50 

1770 sec=(PEEK(hu+16)#2)MOD 9+1 
1780 track=(PEEK (hw+16) #2) \9s IF 
fo=64 THEN track=track+2 

1790 !SECL,sec+fo,track,zb,dr 
1800 pruefs!=0:FOR pz=1 TO 46:p 

ruefs!=pruefs!+PEEK (pz+zb) :»NEXT 
1810 IF pruefs!<>(PEEK (zb+647)+P 

EEK (zb+68) #256) THEN pruefs!=1 E 

LSE pruefs!=0 

1820 aadr !=PEEK (zb+22) #256+PEEK 
(zb+21) 

1830 ladr !=PEEK (zb+25) #2564+PEEK 
(zb+24) 

1840 radr !=PEEK (zb+27) #2564+PEEK 
(zb+26)sIF radr!=0O THEN radr'=a 
adr! 

1850 pz=0:FOR hf=16& TO ISl:ıpz=pz 
+PEEK (hw+hf) NEXT 

1850 IF pz<>36644 THEN 1450 

1870 IF hw<bu+512-&20 THEN hw=!| 
w+&20:GOTO 1850° ; “ 
1880 GOTO 1700 

1890 'Sub Format feststellen 
1900 !DFEHLER,1:WINDOW#0,1,80,2 
0,20:PEN O0: :!DIR 

1910 fo=PEEK (&ABIF)-I:PEN 15 IDF 
EHLER,0:60SUB 1930:RETURN 

1920 ‘Sub Kopfzeile 

1930 MODE 2:LOCATE 53,1:PRINT"v 
on DRIVE"3:LOCATE 68,1:PRINT"au 
f DRIVE"; 

1940 LOCATE 63,1:PRINT CHR$(65+ 
dr)3=POKE &A700,dr 

1950 LOCATE 78,1:PRINT CHR$(65+ 
dr2}3 

1980 LOCATE 1,1:3PRINT"DiscStar 
2.1” 

1970 LOCATE 23,1:PRINT"Format : 
Unbekannt "+STRING$ (9 ,CHR$(8))35 
1780 IF fo=0 THEN PRINT"IRBM 
1990 IF fo=64 THEN PRINT"CP/M / 
VENDOR" 

2000 IF fa=192 THEN PRINT"DATA 
ONLY" 

2010 RETURN 

2020 MODE 1:CALL &BCO2:MEMORY t 
op!sPEN 1: }USER,0: !AsPRINT"Disc 
Star 2.1 beendet 


49,v:PRINT"Blocks " 


{BO} 
{LG} 
{FE} 
{LM} 
{RJ} 
{LM} 
{1D} 
{HO} 
{EE} 


{ML} 


{NO} 


{BE} 
{MI} 
{NF} 
{AP} 


{0B} 
{BF} 


{PD} 
{PA} 


{KI} 
{EM} 


{NG} 
{EF} 


{Jc} 


{BA} 
{KG} 
(JE}I 


{FA} 


{op} 
{BK} 


{BD} 
{013 
{NC} 
{AP} 
{AB} 
{GM} 
{GL} 
{Ic} 
{FA} 
{BL} 
{H0} 
{6F} 
{GE} 
tAC}Y 
{AD} 


{GE} 
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:I737: 
Hardware 


FZkIkkkkikkkikkrk: 
* *** Für C16/116/PLUS4 *** %* 
* 3+1 Software in C16/116 * 
* 198 DM * 
%* 3+1 Dito in Deutsch 248DM * 
%* Umbauset C16/116 64K 50 DM * 
* Umbau C16/116 64Km.Gar. * 


* 100 DM * 
* LOGO für C64 159 DM: * 
%* Jetzt > 49,50 DM * 
* Elektronic Datasette * 
* nur 98,50 DM * 
* Elektronik-Technik-Peters * 
%* Tannenweg 9, 2 
* 2351 Trappenkamp 

RN 


Verkaufe fast neuen C-16 + Datasette 
+ 2 Bücher + Joystick + rund 20 Pro- 
gramme für 400,- DM. Mehr Informa- 
tion: Tel. 0751/92972 

Schenke kostenlos dazu ZX-81 + 
16K + 20 Programme. 


Verkaufe C-116 mit Datasette 
Handbuch und Basiclernkassette für 
85,- DM ca. 10 Monate alt. 

Tel. 05924/1279. 





















































So bestellen Sie: 


liegt bei 15.00 DM! 


beilegen. 
Bei 


men! 














POSTFACH 429 
D-4290 BOCHOLT 


=@ (028 71) 183088 






Der Mindestbestellwert von Software 


Sie können das Geld in bar oder per 
Schecklhrer schriftlichen Bestellung 


Nachnahme-Versand werden 
4.00 DM für Porto-Kosten erhoben. 


Auslandsbestellungen werden nur 
per Vorauskasse entgegengenom- 


Rufen Sie uns doch einfach einmal 
an! Unsere Telefone sind wochentags 
ab 9.30 Uhr für Sie zu erreichen! 


SOFTWARE-VERSAND 
ANDREAS BACHLER 


C16 umschaltbar auf 64K mit der Data- 
sette und Datenmithörgerät, viele Spie- 
le und Programme dazu, alles wie neu 
aus 1986! VB: 199,- DM 

Boye, Tel.: 04522/4134 


C16/116 RAM-Umbau 64 KBYTE 
in 1. Tag für 100 DM nur bei mir 
kostenl. Durchs. auch Reparatur 
*** beim Computerfachmann *** 
Noch Fragen? Freiumschlag an: 
Elektronik-Technik-Peters 
Tannenweg 9, 2351 Trappenkamp 


Verkaufe C-16 mit Datasette und ein 
TOP-GAME, Intern. Karate um 250 DM 
(C16 2 Monate alt) 

Tel.: 06541/407 Austria (Martin ver- 
langen!) 


KIEFER FR 
* Für C16/116/Plus 4 Preiswert * 
%* Turbotape Super (64K) 19,50 DM * 
* Elektronik Datasette 98,50 DM = 
%* 3+ 1 Software Englisch 

* 198,00 DM > 
* 3+1 Software Deutsch * 
* 248,00 DM * 
%* Plus 4 geprüfte Ware 298,00 DM * 
%* Plus 4 dito deutsch 348,00 DM * 
* Floppy 1551 Restp. 389,00 DM * 
* Elektronik-Technik-Peters * 
%* Tannenweg 9, . * 
* 2351 Trappenkamp * 
KK 


Alleykat 

Die Erbschaft 
Eis & Feuer 
Hacker Il 
Knight Games 
19422 - 
Parallax 
Room 10 
Sanxion 
Super Cycle 
Tass Times 
Thrust 

Trinity 

Vera Cruz 
Vietnam 

Way of the Expl. Fist Il 
World Games 



















Eden Blues 
Jack, the Nipper 
Saboteur 

Star Strike Il 
Tarzan 

Tau Ceti 
Tomahawk 
Utchimata 
Winter Games 













Schneider CPC (464, 664, 6128) 


* Kleinanzeigen * Kleinanzeigen * Kleinanzeigen * 





COMMODORE VC-20 zu verkaufen + 
25 Modulspielen und 75 auf Cassette. 
Spiele auch einzeln erhältlich. Tel. 
0251/788451. 


KIFkKKrKreKErEE rer 
%* + +Achtung, Achtung! + + * 
x Verkaufe CPC 464, komplett mit * 
%* Handbuch, Democassette und * 
%* weiteren Programmen. Fast neu- %* 
%* wertig, für nur 500,- DM. Bitte * 
* schreiben Sie an: * 
* Günter Seebauer, Sportplatz 12, : 
* 8852 Bayerdilling, 

* Tel.: 09002/3840 * 
FREE EFF 


Verkaufe C16 + Hand u. Lehrbuch + 
Datasette + 9 Spiele , Gesamtpreis 
270 DM, Neuwert 480 DM 

Anfragen: Michael Schulz, 

Tel.: 02101/273420 


PLUS/4 + Floppy + Datasette + In- 
terface Neu! Preis: VB. Auch ein- 
zeln!!! Zuschriften an: 

Frank Reichmann, Kirschenstr. 21, 
5309 Meckenheim, Tel.: 02225/3716 


Turbo-PC’s, 4 MgH-8 MgH umsch., 
ohne Schneider-Macken zum Toppreis. 
Infos anfordern: 0561/772408 


Wir haben die Software, die Sie suchen! 
Commodore 64/128 








Kassette Diskette Kassette 
29,95 DM 38,95 DM ACE 32,00 DM 
68,95 DM 78,95 DM ACE (+64K) 34,95 DM 

68,95 DM Bandits at Zero 14,95 DM 

38,95DM 54,95 DM Bomb Jack 29,00 DM 
38,95DM 38,95DM Classics Ill 32,95 DM 
2 pn 44,95DM __ Computer-Hit (10 Spiele) 32,95 DM 
29.95 DM Finders Keepers 9,95 DM 
32.95 DM Formula One Sim. 9,95 DM 
32,95 DM 44.95 DM Frank Bruno’s Boxing 25,00 DM 
58.95 DM Ghosts’n’Goblins 29,00 DM 

9,95 DM G-Man 9,95 DM 
98,95 International Karate 19,95 DM 

48,95 DM 58,95 DM Jack Attack (Modul) 14,95 DM 
32,95 DM 44,95 DM Kikstart 9,95 DM 
32,95 DM Matrix/Laser Zone 29,00 DM 
32,95 DM 44,95 DM Monty on the Run 9,95 DM 
Paint Box 25,00 DM 

Pod 9,95 DM 

: Project Nova 25,00 DM 

a: ER 29,00 DM 
32,95 DM 32,95 DM ROM-Listing 29,00 DM 
32,95 DM 32,95 DM Space Pilot 19,95 DM 
32,95 DM Speed King 9,95 DM 
32,95 DM 44,95 DM Text Manager (Disk) 38,95 DM 

32,95 DM Text Manager (Kass.) 38,95 DM 
32,95 DM 48,95 DM Trail Blazer 19,95 DM 
32,95 DM 44,95 DM Winter Olympiade 29,00 DM 
32,95 DM 54,95 DM Yie Ar Kung-Fu 29,00 DM 


Fordern Sie kostenloses Informationsmaterial über unserLiefer-Programm fürfolgende 
Computer an: COMMODORE 64/128, COMMODORE 16/116/PLUS 4, SCHNEIDER 464/ 
664, ATARI 130XE/260ST/520ST/800XL, SINCLAIR SPECTRUM und-MSX. 

Bitte geben Sie immer Ihren Computertyp an! 


CSompute mik 


Commodore 16/116/PLUS 4 






CPU 464/664 

Suche und tausche Software. Verkaufe 
Steve D. Smooker, Macadam Bummer 
a 20,- DM. Suche Dragons Cair usw. 
Michael Schlitt, Fasanenweg 1, 4459 
Uelsen. 


Suche Druckknopf für MPS-802 oder 
defekten Drucker MPS-802. Zahle Gut. 
Compliliere Basic-Programme mit 
Austro-Speeder CCA. 3- 10mal schnel- 
ler, gegen geringen Kostenbeitrag. An- 
fragen und Information unter 
09353/3864. . 
Ps. Tausche C-16-Plus/4 Programme 

auf Diskette!!! 


C-64 Besitzer 
Floppy 1541! 
Da finaziell sehr am Ende, bitte Preise 
bis 30,- DM. 0991/25129, nach Roland 
fragen!!! 


Ich suche einen gebrauchten Curran- 
Microspeech-Sprachsyntesizer. Nur 
mit Anleitung ! Angebote an: R. Buck, 
Paukengasse 2, 7900 Ulm. 


Suche noch guterhaltenen C-64 mit 

Floppy. Zahle bis 600 DM. Tel.: 

06541/497 Austria (Martin verlangen) 
Martin Sommerbichler, 

Hotel Tirolerhof, A-5754 Hinterglemm 


“ss HILFEITI HeRi 
Suche C-16 +64K Programme 

Nur Diskette !!! 

An: Hubert Mühlbacher, Plattenberg 3, 
8221 Waging, Tel.: 08681/772 


sucht ae 





2187 
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* 
WER SUCHT * 
VC-20 intern + 19 Compute * 
* 60,-DM * 

































Plus 4: Suche Speichererweiterung 
zum Selbstbau. Wer kann helfen? 
Biete Hard- und Software für C-16 und 


Plus 4. Tel.: 04209/5390 

Suche zuverlässigen Tauschpartner, 
100 %ige Antwort an: 

Christian Doeres, Fridrichstr. 5d, 5550 
Bernkastel-Kues 


* * * Hallo C-16 Freunde * * * 

Wir suchen noch Mitglieder für unseren 
C-16 Spitzenclub! 

Info bei: Markus Schaper 

Muldeweg 7, 3300 Braunschweig 


Wer tauscht Software für CPCT 464, 


3000 Hannover 1 
An der Tiefenriede 27 

Tel.: Service 05 11/8863 83 
CSJ COMPUTERSOFT JONIGK Händleranfragen erwünscht 








Riesenauswahl an Software 
sofort CSJ NEWS anfordern 
bitte Computertyp angeben 


Hallo 4132 Kali (Richtig gehört) 
Suche C16/116 und Plus 4 Anwender 
im Raum Lintfort, zwecks Software- u. 
Informationsaustausch. 

Detlef Hoppe ab 21 Uhr: 02842/5847 


C16/116/ +4-Anwender und Einsteiger 
Endlich ein Club speziell für uns. 
Kostenlose Informationen bei: 

hrc e.V., Laschinsky, Bauerland. 15, 
4800 Bielefeld 1 


Für C16/116/Plus 4 kostenlos ! 
Infos-Tips-Angebote-Umbauten 
*** vom Computerfachmann *** 


* Netzgerät VB 50,- DM 

COMPUTERSOFTJONIGK x Platine (defekt) VB 60,- DM * 
C68 * Datasette 1530 50,-DM * 
@ for Gold : 140 2. über an Bat oa auf Kar Ki 8 * => a Prg 110,- DM * 

ie ar Kung Fu m B- Combat ‚= 42.— »** Schnell melden unter * 
Ab Gars u a u * Tel.: 07822/19768. Vielen Dank! * 
N. a nl ne = %* PS: Ralf zahlt auch Porto * 
None ont 30- 3m SaoobyDoo 2- Dame er 
Bl neuer Preis 3- Grandmaster 32,-— Into the Deep 90 EEE EEE TEEN TER PIERRE 
c12i Bounder/Planet Search 29,- Torpedo Alley 9,90 KIKEKKKKKKERKKKKEKK 
I st v8 24.90 Kohing, Warriors 24,- GMan 9,0 *DISKETTEN * 
Thai Boxing 49,— Space 2 19,—  Prospector Pete 9.0 
Finanzbuchhaltung 198,- ° Aardvark 19.- Harvey Headbanger 9.90 %* 5 1/4”, 48 tpi, DM 0,99, 2d * 
Am (Deutsch) neuer Preis 298.- *3W1 m” ‚135 tpi, DM 3,99, 1DD * 
Aren 109.- Ver Sog Könte Sie ertassen. beim Laden und Spichem mit C$4 » auch andere, bew. Garne * 
get Darkness Be: TURBO TAPE +. AZIMUTH TAPE da T2tacher %* Allg. AUSTRO-AG, Ringstr. 10 %* 
Finanzbuchhaltung 18- RENTE HUN max * 8057 Eching, Tel:08133/6116 * 
VIZAWRITE AMIGA neuer Preis 498.- Mindestbesteliwert DM 30,— * * 


kIkkkrkrkrkkik 


Software 


*C16* Games (Topball, Domino, IRA, 





Cave, Diggy, Diam, Bacugammon, 


om) + Kassette für 10,- DM + Porto. 


info gegen Rückporto bei Horst Meyer, 
Overgünne 89, 4600 Dortmund 30. 


Software für: 
C16/116, C64/128, Spectrum und ZX 
81, Atari, Svi 318/328, Laser 110, 210, 





310, VZ 200, ab 7,50 DM, Computer xxx 
angeben. Kostenlos Info: Firma (Commodore C16/116 Plus/4 
Jupitersoft, Höttinger Str. 34b, 8836 Hardcopy - Hardcopy - Hardcopy 


Ellingen. 


*** C16/116-Grundversion*** 
Textadventure (Eigenproduktion) 
Werner Barwig - Tape - Nach Lader 
Bodelschwinghstr. 19, - Vorkasse - 
6418 Hünfeld 1 - 10-DM-Schein. 


druckt Ihre Bildschirmgrafik in max. 60 
Sek. aufca. DIN A4 Größe aus. Für 16K 
und 64K Version geeignet. Als Kassette 
oder Diskette für nur 19,-DM. Porto per 
NN bei: Frank Schmitz, Kurzer Weg 1, 
5206 Neunkirchen 2, Tel. 02247/8111. 


a: ; re » Erweiterungen + Reparaturen Achtung! VC-20 Besitzer! ’ 7 = 
kaufe auch billige Spiele. Mit Liste an: Noch Fragen ? Freiumschlag an: Serien 26 = -uhrlshblichen elnet ne re es u 
Jörg Artischewski, Ilsenburgerstr. 56b, Ejektronik-Technik-Peters Preisen] Info kozlaniosi Er a en 
3388 Bad Harzburg Tannenweg 9, 2351 Trappenkamp Be ; » 


Antworte garantiert! 


*** Größter C16/116/+4 Club *** 
Biete einen tollen Service u.a. 
Fachzeitschrift auf Datenträger. 
Informationen gegen 1,30 Porto! 
Hacker, Im Wingert 10, 5440 Mayen 14 


Zwei Themen -ein Ereignis: Hobbı R troniec 


10. Ausstellung fur Funk- und Hobby-Elektronik 


GOMIBRUNER, 





Y-Y 


RR 


Plus 4: Deutsche Schreibmaschinen- 
tastatur mit allen Umlauten und Son- 
derzeichen auf E-PROM. Einfacher 
Austausch. In allen Betriebsarten be- 
nutzbar. Tel.: 04209/5390 


Dortmund 


18.- 22. Februar 1987 


X-TRA Datendienst, Colmarer Str. 57, 
7000 Stuttgart 40. 


Wegen Systemwechsel biete ich 
meine Programm-Sammlung an für 
C64, suche Amiga-Programme. Liste 
anfordern bei: Jürgen Klein, Kürtnerstr. 
46, 5060 Bergisch Gladbach 2 


Ginsterberg 42, 5110 Alsdorf. 


C16/Plus/4! Anwender und Spiel- 
programme in großer Auswahl für nur 
1,- DM/Stück. Liste gegen Rückporto 
bei: Jürgen Roumen, Eichenstr. 49, 
4054 Nettetal 1. 


Die umfassende Marktübersicht für Hobby- 
Elektroniker und Computeranwender, 
klar gegliedert: 


In Halle 5 das Angebot für CB- und 
Amateurfunker, Videospieler, DX-er, Radio-, 
Tonbandl-, Video- und TV-Amateure, für 
Elektro-Akustik-Bastler und Elektroniker. 

Mit dem Actions-Center und Laborversuchen, 


Experimenten, Demonstrationen und vielen 
3. Ausstellung Tips 
für Computer, 4 
Software In Halle 6 das Superangebot für Computer- 
und Zubehör 


anwender in Hobby, Beruf und Ausbildung. 


Dazu die „Computer-Straße” als Aktions- 


bereich, der Wettbewerb „Jugend program- 
miert” und die Stände der Computerclubs. 









Ausstellungsgelände Westfalenhallen Dortmund täglich 9.00-18.00 Uhr 


Sompute mib 
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; : Verkaufe für C16/116: 20 Garantierte i 
Top-Spiele auf Kassette u. a. Dame, i 
== : Kniffel, U-Boot usw. Zahlung: Voraus- ! 
\ \ : kasse DM 20,-. Nachnahme 24,- DM. ! 


Bestellung: Telefonisch unter 
02773/3411 oder direkt bei Frank Dies- 

R R : r 2 "ER Re s ner, Industriestr. 48, 6342 Haiger 1; 
Nachdem der Tronic-Verlag mit großem Erfolg eine 64K-Speichererweiterung für den C-16/116 in weitere Information unter Tel. 


einer der vorangegangenen Ausgaben von »COMPUTE MIT« angeboten hat, möchten wir auch 02773/3411 ab 16 Uhr. 

jetzt wieder auf ein neues Hardware-Angebot hinweisen. Wir planen für den Anfang des Jahres vc-20 Programme vorrätig 

1987 den Ausbau einer Speichererweiterung auf 256K-Byte. Dazu müssen wir jedoch von Ihnen Angebotsliste gegen 1,30 DM in Brief 
marken bei der Basic-Programmbiblio- | 

wissen, ob bei dem User überhaupt ein Interesse dafür vorhanden ist, die Speicherkapazität des thek, Inh. Horst Querfurt, | 

C16/116, C-64 und Plus 4 auf die eines ausgewachsenen Personalcomputers aufzurüsten. Von der Postfach 84 30 42, 4320 Hattingen 14. | 

technischen Seite sind alle Probleme gelöst, so daß eigentlich sofort mit der Serienproduktion begon- 161116 preiswerte Sftwre 

nen werden könnte. Wir möchten Sie deshalb bitten uns umgehend mitzuteilen, ob und an welcher 17+4, Glückspiel, Schiffeversenken, 

Speichererweiterung Sie interessiert sind. Die genaue Aufstellung der Erweiterungen für die einzelnen en a 

Syteme und die entstehenden Kosten können Sie der nachfolgenden Gliederung entnehmen: 3260 Rinteln. u 


c 1 1 ‘ .. 8 Achtung C16/116, en ! 
uf Verkaufe Disc vollgepackt mit 24 Spie- | 
= 6 5 a gerüstet au 256K-Byte len und 9 Anwendungsprogrammen für ; 


10,- DM (Poker, Mastermind), Helikop- 





als Bausatz ter, (Annon, Kniffel, usw.) Schickt einen | 
(Lötungen müssen selbst vorgenommen werden, Bauanleitung und Zubehör wird a arten an. Michael Grahneis, 
geliefert) 223,— DM 5551 Monzelfeld und Ihr erhaltet umge- 
U ö hend die Diskette. Tel. 06531/3949 
zum mrüsten fan as La as ers a 
Si | Ih C Umrü eh . Plus/4 C16/116 
(Sie senden Ihren Computer zum Umrüsten an eine Firma ein) Super Vokabelprogramm, beliebig vie- | 
263,— DM le Vokabeln können eingegeben wer- 


den. Kas.: 19,- DM; Dis.: 25,- DM Tel. 


oo 02202/30283 (Tobias). ! 
C-64/Plus 4 aufgerüstet auf 256K-Byte un 


Ein Super-Textverarbeitsungspro- 


als Bausatz 173,— DM gramm nur auf Diskette (64K) für nur 
68,- DM (incl. MwSt.) + Porto per NN. 
‚zum Umrüsten 218,— DM Kostenlos Info anfordern bei Firma 


Frank Schmitz, Kurzer Weg 1, 
5206 Neunkirchen 2, Tel. 02247/8111. 


Senden Sie Ihre Mitteilung umgehend an folgende Adresse: Assembler für C16/116 Plus/4 
Ein Komfort-Assembler mit vielen Ex- 
tras nur auf Diskette für nur 45,- DM (in- 


TRONIC-VERLAG GmbH NND, Fato,ae NN, Ksnbs 
Info anfordern bei Frank Schmitz, Kur- 
zer Weg 1, 5206 Neunkirchen 2, Tel. 


Hardware-Service GzBarıeınn. | 


Auch bei Joysoft erhältlich. 


Postfach 870 Te Tee 


für PC 128 von Data Becker. 


3 4 4 ) Eschwege an ee Becker für 


Burk, Tel. 0561/772408 


‚Bitte senden Sie keine verbindlichen Bestellungen ein. Wir möchten zunächst-nur:.die Resonanz-auf VC-20 Software zu Kleinstpreisen. Ori- 1 
£ = ee: . 5 ü ginal Steckmodule und Kassetten bis i 
unser Angebot testen und werden dann zu einem späteren Zeitpunkt in der Zeitschrift »COMPUTE zu 80% reduziert. Liste gegen 80 Pf. 


MIT« ein genaues Angebot und die entsprechenden Bestell-Modalitäten bekanntgeben. er ee en 
.o..eoa—.s..;ue.sus. seo .eseessessssessessssessesessoseseses.sa.s—. .;€,o„eesue...o - ee 


Lern- und Trainingssoftware für 


Aufträge für Ihre persönliche Kleinanzeige padag.Prakis, Bergstr 34 6800 Her 
können Sie mit der Auftragskarte 
‚im Innenteil dieser Ausgabe erteilen! 


delberg, Tel. 06221-474711/Info anfor- 
dern. 


**C16/116** Kfm. Softw., Systemsoft- i 
ware * Userport 24 I/O-Kanäle. E 
Info gegen Freiumschlag bei ! 
Alfred Lämmerzahl, 4100 Duisburg 17, iE 
Saarstr. 85, Tel. 02136/13994. NE 


Spiele * C-16/116/Plus 4 * Spiele 








eg : : - Winter Olympiade 24,90 | 
Bitte beachten: —. Yewekuarı 0) 0 MM 
Project Nova Pr 
ojec ’ i 
Eine Veröffentlichung der Kleinanzeigen | Tral Blazer | 
> Fe: Stand 12186 zzgl ee 
2 IE reise: B 
erfolgt nur gegen Vorkasse!!! BE Eoms_Schice,Pr 130417818 Sonden 


Compube mi 2187 








SIE FEE 
x *** Für C16/116/PLUS 4 *** 
* Umbau C16/116 64K garant. 
* 100 D 
50D! 


9,50 D 
348 D 


* Umbauset C16/116 nur 
* Turbotape Super (64K) 
* nur 1 
%* Plus 4 in Deutsch nur 
* Elektronikdatasette 

* nur 98,50 D! 
* Floppy 1551 die Reste 389 D 
* LOGO für C-64 159 DM, 

* nun 
* Elektronik-Technik-Peters 
* Tannenweg 9, 

* 2351 Trappenkamp 
FREIE: 


Französisch auf dem C 16/116 
Vocteach Plus mit franz. Accents und 
deutschen Sonderzeichen! Mit Menü- 
steuerung, Auswertung etc. Ein Datei- 
ensystem garantiert optimale Speicher- 
nutzung und sinnvolle Abfragetechnik. 
Preis im Nachnahmeversand: 15 DM 
(mit Einführung). Info bzw. Bestellung: 
B. Jakob, Kehl 4, 8832 Weißenburg 1 


KIEFER FE KR 
* Elite plus V1.0 *** Ka/Di * 
* fantastische neue Programmier- * 
* sprache für strukturiertes Pro- * 
* grammieren auf Ihrem Plus * 
* 4/C16/116 (64 KB) * 
* 29,-- DM mit ausf. Handbuch incl. * 
* Porot & Verp. Info gegen Rück- * 
%* porto bei: TEDsoft, * 
* Bohlingerstr. 2, 7700 Singen * 


2 35 SE 55 
KRERKERERERERERKRRR 
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FKERFRERIKFFRE FEN 


Grafikprogramme - Grafikdemos 
für C-64 mit Simon’s-Basic und C 


16/116. Grafiken aller Art. Supergün- 
stige Grafikdemos mit detaillierten 
Erklärungen und vielen Beispielen. 
Initialen in Grafikgroßdarstellung. Info 
gegen Rückporto, Inform. 

Cass.: 3,80 DM! 

B. Jakob, Kehl 4, 8832 Weißenburg 1 


C16 +116+Plus 4 Technische Mathe, 
Schulanwender- und Grafik-Pro- 
gramme zu wirklich reellen Preisen. 
Wahlweise Cass./Disk. z.B. Zahntrieb- 
festigkeit/E. Techn./Hydro-Pneumatik/ 
Werkzeugmaschinen/Bruchrechn./ 
Dreieck/Volumen/Super-Grafik-Pro- 
gramme usw. Katalog mit Prg.-Be- 
schreibung 1 DM Briefmarke 
Software-Versand A. Ristau, 
Peetzweg 9, 3320 Salzgitter 1 


FREE ER FEK 
* WIR LIEFERN NEUE SOFT- * 
* WARE FÜR: * 
%* Commodore C-16/116/Plus4 * 
%* C-64/C-128/Amiga, Schneider %* 
* 464/664/6128, Atari 800/800 XL/ * 
* 260 ST/520 ST/1040 ST * 
* Liste anfordern von: * 
* BERLAU-SOFT, Postfach 1415, * 
* 2150 Buxtehude * 
FKFERKFKFEKFKEKFRE FH 


C-16/116/Plus 4 Software en Masse! 
Verbilligte Preise: Über 200 Artikel 
Lieferbar! Katalog von Softi Soft, 
Blanckennagelweg 9, 4770 Soest, Tel.: 
02921/4359 RÜCKPORTO ! 


DER IIZZEI DIS I 


“ernennen NEU-ERÖFFNUNG “... * 
“teer22VERSANDHANDEL******* 
wur 
C-64 Software 
Spiel- und Anwenderprogramme 
Liste bei 
Herbert Müller, Dorfstr. 1 
8852 Rain-Unterpeiching 


WERTE RT RTEM 


2187 





C-64 Super-Spiele-Paket 

C-64 nur auf Disk: Alien, Powerstar, 
Slap, Shot, Phönix, Liebesfilm, Int. 
Tennis usw. Das Ganze kostet Euch 12 
DM, bei Nachnahme 15 DM. 

Christian Doeres, Friedrichstr. 5d, 5550 
Bernkastel-Kues 


KREIEREN 
* C16/116/PLUS 4 GRAFIK -CAD * 
% Zeichen- und Grafikprogramme * 
* für 16K-Version. Ein CAD- * 
x System (Basissys.) für die 64 K- * 
* Version. Anwendbar für tech- * 
% nische Zeichnungen u.a. Ein um- * 
* fangreicher Befehlssatz ermög- * 
% licht einfaches Bearbeiten einer * 
%* Zeichnung (zoomen, duplizieren, * 
%* drehen, spiegeln, transferieren, * 
% löschen) 16 Ebenen 
* Info gegen Porto: 

* Dipl.-Ing. M. Raetzel, * 
%* Ulvenbergstr. 6, * 
* D-6100 Darmstadt 13 %* 
FKEFKKEKKEFFFFEE RER 


%*%* 


“nr... Software für “.... 

Atari 800 XL, 130 XE * Atari 260 ST, 
520 ST * Commodore VC-20, C-64, C 
128, C-16/116/Plus 4 * Commodore 
Amiga * MSX Computer * Schneider 
CPC-464/664/6128 + kostenlos Liste 
anfordern: Frank Schmitz, Kurzer Weg 1, 
5026 Neunkirchen 2, Tel.: 02247/8111 





CPC SOFTWARE ZU TOPPREISEN!! 
tel. best. bei: M+K 07022/6815 


Sam Fox Strip Poker 29,90 DM 
Werner 29,90 DM 
Star Trek (Enterprise) 33,90 DM 
Dragon’s Lair 33,90 DM 
Elite 47,90 DM 
Jack the Nipper 31,90 DM 
Kane 14,90 DM 
Welteroberer 5,90 DM 


Verkaufe 11 Spiele und 4 Anwender- 
programme für CPC 464 

1. Turbo Tape, 2. Masterfile, 3. Soul 
Robot, 4. Nonterraqueous, 5. Chiller, 6. 
Ghostbusters, 7. Yie are Kung Fu, 8. 
Bruce Lee, 9. Match Point, 10. Match 
Day, 11. Knight Lore, 12. Winter 
Games 1 u. 2, 14. Pascal, 15. Tasword. 
Alle Spiele für 50,- DM auf einer 
Kassette! Bestellen bei: 

Robert Dragojevic, Konstanzerstr. 4, 
7730 Villingen, Tel.: 07721/56432 


FERN 
* C-16/116/+4(64K) Programme %* 
* ACE.......(D) 34,90......(K) 32,90 * 





* Saboteur (normal/64K * 
KAVENS) ER: kekeseresnesnuenensnnte 27,90 * 
* Quiwi...... 23,90 * 
%* Mercenary. 27,90 * 
* Jump Jet .... .. 22,90 * 
* Karate King... 22,90 * 
%* Legende im Eis * 
* (Adventure)... 22,90 * 
x Katalog m. OT * 
DM * 
x Comp. Service, PF 1304, * 
* 7913 Senden * 
Fit kkrkreer 
C-16 Low-Cost-Software Plus 4 
Varmint-Guzzler-Bandits at Zero-Terra 
Cognita-Netrun 2000-Trizone-Tazz- 
Video _Meanies-P.o.D.-Big Mac- 


Powerball-Video Poker-Robo .Knight- 
Climb It-Winnie Witch-Shark-Hulk- 
Monty on the Run-Speed King-Kane- 
One Man and his droid-Kung Fu Kid 
Preis pro Spiel nur 9,90 DM 

Comp. Service, PF 1304, 7913 Senden 


kleinanzeigen 


es 


COMPUTERSOFTJONIGK 


Wir haben für Sie über 150 verschiedene Spiele auf Lager und jeden Tag werden es mehr. 17 verschiedene 
Mastertronic Games z.B. Hektik, Formula 1, Oblido, Speed King je DM 9,90 und natürlich die CSJ Anwen- 
derprogramme Adress, Datei, Vokabel, Text, Utility je DM 29,90. 





















C 16/116/Plus4 Disk Cass Cass 
Sun Street (The Newsboy) 39,- 29,- Robo Knight 9,90 
Danger Diamonts 39,- 29,- Shark 9,90 
Jump Jet (+16K/Plus4) 39,- Auriga 9,90 
Mercenary (Plus4) 39,- Booty 9,90 
Mercenary Compendium (Plus4) 39,- Killapede 9,90 
Saboteur (Plus4) 39,- Varmit 9,90 
Grandmaster 29,- Guzzier 9,90 
Winter Events 29,- Runner 90 
Wimbledon 29,- Winnie Witch's Superbroom 11,90 
Intern. Karate 29, - Mission Mars 11,90 
Yie ar Kung Fu 39,- Loco Coco 11,90 
Dark’s Dilema 29,- Lunar Docking 14,90 
European Games 29,- Tazz 19,00 
Cyborg 19,- Vox 19,00 


Mindestbestellwert DM 30, — 
3000 Hannover 1 


Nicht vergessen CSJ NEWS anfordern 


Riesenauswahl an Software 
An der Tiefenriede 27 sofort CSJ NEWS anfordern 
Tel.: Service 05 11/886383 bitte Computertyp angeben 
CSJ COMPUTERSOFT JONIGK Händleranfragen erwünscht 











*"TOP-SPIELE für C16**: Ger, ZIFKKkKKEFEFFeRERE 
Moon-Flighter, Poker, Jump-Man, :* C-16/116/Plus 4 Anwenderpro- * 
Pferderennen, Turmspringen, Black- :% gramme * 
Jack, Cowboy-Duell, Pac-Mac, Fre- * Turbo Tape 15,90 * 
Kampf, Shaolin, Affenwurf, Autoren- :* Music Master 22,90 * 
nen, Malprogramm, Mover, Fressman, %* Paint Box 19,90 * 
Poker Il, Tankwars, Oilor Texas, Mimi, * Graphic Designer 15,90 * 
Diam, Mistermind, Vitman, SOS, * Utilities C-16 27,90 * 
Schiffbruch, Duell, Frog-Match, Sound- * Text C-16 27,90 * 
maschine. Sie können sich 8 Pro- : Micro Datei/Micro Kalk je 22,90 * 


gramme aussuchen für 10,- DM bei 
Nachnahme 13,60 DM. 

Jürgen Arns, Jugendheimsir. 1, 

5550 Bernkastel-Kues. 


* Tel. Bestellungen: 07307/6230 * 
* Comp. Service, PF 1304, * 
%* 7913 Senden * 
FKRIRKRIKKEKEREK KR 


Rennersoft 


Computer-Distribution 


Action - Games 
Adventures - Business » Software 


KERLE FF FERF 


Sie suchen preiswerte Software? 
für Ihren 
Commodore C-16/116 plus4 
Commodore C-64/128 

Atari ST 


KERLE FF FF FR 


Dann fordern Sie unseren 
: Gratis-Katalog an! 


Bitte unbedingt Computersystem angeben! 


Rennersoft 
Postfach 920 - 4440 Rheine 





Compute mik 





au 


er trennen wenn 


en 


Rummıe BISIAMLLEIURR \ 
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* - a * 
s Neuheiten: “ 
* Mount Vesuviss Cass. 26,95 * 
* Suicide Run Cass. 9,95 ” 
* Winnie the Witch Cass. 9,95 * 
* Trailblazer Cass. 25,95 * 
* Classics Ill Cass. 33,95 * 
* Kane Cass. 9,95 * 
x Netrun Cass. 9,95 * 
* Terra Cognita Cass. 9,95 * 
* Ghost’n Ghoblins Cass. 29,95 * 
Fk FH a a 











are proudly to present 


KRERRFRRFER 


European Games 2 Diese Spiele sind einfach Spitze & 
5 neue Sportarten für den C-16 » Torpoe Run Cosa. 85 
peedkin ass. 9,95 
* Hammerwerfen (siehe Foto) s le Casa D706 - 
%* Schwimmen Favourite Four Cass. 26,95 
%* Rudern = Pralack en : = 88 x 
5 inter Olympiade Cass. 29,95 
* Gewichtheben ag Cass. 9,5 © 
%* Weitsprung DM 19,95 sooo 9900000000000. 


64k Steckmodul ee ee 


Die Supererweiterung für den C-16 
* 60671 Bytes free 
%* Damit ist der C-16 dem 64’er 
speicherplatzmäßig klar überlegen 
(22000 Bytes mehr als der C-64) 
* Voll vom Basic her nutzbar 
%* Wahnsinnsspiele für die ausgebaute Version 


Jump Jet 


(mindestens 16k Erweiterung nötig) 


|DM 89, - 


a/a/n/n]n/u]a|n/nja/n/n/n]n/n]n/njn/ajn/n/nin/n/u/n/uluimjmim] 


Superspiele für den ausgebauten C-16 
Operation Thunderstorm 5 £ 
Ein deutschsprachiges Textadventure, daß es in:sich hat. 
Witzig und locker aufgebaut und nur am Anfang einfach 
(oder nicht?) . Cass. 29,95 Disk. 29,95 
ACE (64k) Flugsimulator, der die 64k voll ausnutzt! 
Einfach super! Cass. 38,95 
Quiwi Das Quizspiel für die ganze Familie. Cass. 29,95 
Jump Jet Fiugsimulator eines Senkrechtstarters Cass. 33,75 
Kurvendisküssion 

' Eine tolle Hilfe für Schule/Beruf. Minima, Maxima, Nullstellen, 
Polstellen, Wendepunkte, Lupenfunktion, Grafik ständig 
abrufbar, etc. Cass. 19,95 Disk. 19,95 


ESOOS0DD0800000000090000000000000 


Senkrechtstarter (Flugsimulator) 
%* Start vom Flugzeugträger aus 

*%* Deutsche Anleitung 

* Top Grafik mit verschiedenen Perspektiven 
* Sehr gute Instrumentierung (siehe Foto) 

* Sehr realistische Simulation DM 33,75 


ODO000000000000D 
ODOODDOOOGDEODDDEOD 


OO00000000000000000000000000 

° Literatur und Zubehör ° A he 

o o Ein Kampfflugsimulator der Superlative 

o Data Becker: Basic Buch 29,00 o * verschiedene Bewaffnung wählbar 

© Data Becker: Grafikbuch 29,00 ° F 9 

o 2 o * Landkartenanzeige 

o Data Becker: Maschinenspr. 29,00 © : | 
o Leercassetten C-15 5St. 11,95 o * Boden, Luft und Schiffskampf MISSILE 
9 Leercassetten C5 58t. 9,858 * Betankung in der Luft möglich LIRRBING 

o  C-16 Userport 59,95 o * Spitzengrafik, wahnsinnig schnell 

9  Leerdisketten 10:34.::72.3885 9 * Gegnerischer Raketenangriff 

0000000000000000000000000000 wird angezeigt 





Unsere Lieferbedingungen 


Einfach spitze: Wir liefern Ihnen die Ware frei Haus - auch nach Österreich, Luxemburg, Belgien, Schweiz, Niederlande (nur der Zoll geht zu Lasten des 
Empfängers)! Sie bezahlen keine zusätzlichen Nebenkosten, Porto oder Nachnahmegebühren. Einen Mindestbestellwert kennen wir ebenfalls nicht. Durch unseren 
Telefonservice (keinen Anrufbeantworter — sondern einen Ansprechpartner) können Sie problemlos bei uns bestellen. Unser umfangreiches Lager und das riesige 





Softwareangebot sorgen für zufriedene Kunden. 


Spitzenservice + Superqualität — hierfür bürgt der Name Lindenschmidt! 
Versandhandel R. Lindenschmidt »- Schulstraße 14 - Postfach 1328 - 4972 Löhne 2 - Telefon (05732) 72849 








